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ABSTRACT 

This  thesis  examines  the  use  of  an  inexpensive 
commercial  microcomputer  for  the  preparation  of  Naval 
Reporting  Structure  Operational  Reports.  These  highly- 
formatted  reports  provide  critical  unit  information  used  Dy 
the  National  Command  Authority  and  Joint  Chiefs  of  Staff  in 
assessing  the  nation's  defense  posture.  Since  these  reports 
drz  prccessed  ty  computer,  correct  formatting  and  data  entry 
are  essential  to  preserve  the  timeliness  and  accuracy  of  the 
information.  The  requirements  of  a  Report  Origination  System 
ere  investigated  from  the  perspective  of  the  systerr 
operator,  the  message  drafter  and  the  message  releasing 
authority.  Interfaces  are  developed  which  provide  for  system 
application  to  different  hardware  configurations.  A  subset 
of  the  Ada  language  is  used  to  allow  structured  programming 
and  data  abstraction  techniques,  elements  of  the  Unit  Status 
znd  Identity  Report  (UNITRE?)  are  implemented  using  this 
method . 
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I.  BACKSHCDND 

The  need  for  current  and  correct  command  and  control 
information  within  the  military  has  long  been  recognized. 
There  will  most  likely  never  he  a  tirre  when  the  services 
possess  assets  that  are  considered  in  excess  of  those  re- 
quired to  perform  the  assigned  missions.  With  the  advance  of 
technology  over  the  past  forty  years  we  have  seen  a 
continuing  decrease  in  the  tirre  reauired  to  act  or  react  to 
a  given  situation.  The  advent  of  the  computer  provided  hoth 
the  cause  and  the  means  to  reduce  decision  making  time.  In 
these  lays  when  "rapid  deployment"  has  become  a  keyword,  the 
ability   of   the  higher  authority  ;o  quickly  and   precisely 

judge   the   disposition   and  status   of   forces   has   become 
paramount. 

A.   TEI  FBCBIIM 

To  obtain  such  an  appraisal  of  forces,  hundreds  of  bits 
of  information  (normally  submitted  via  message  reports) 
relating  to  location,  personnel  manning  and  training,  equip- 
ment status  and  overall  readiness  condition,  for  many 
individual  units  must  be  examined. 

At  the  transmitting  end  we  have  the  originator  who  must 
sift  through  volumes  of  instructions  to  determine  WHAT  is 
required  to  be  reported,   WEEN  it  is  required  to  be  reported 
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and  HOW  it  is  to  be  reported.  Ail  too  often  the  drafting 
process  reverts  to  examining  pdSt  reports  for  the  general 
forir  and  content.  -Thus  errors  tend  to  perpetuate  themselves. 

At  the  receiving  end,  the  World  Wide  Military  Command 
and  Control  System  (WWMCCS  )  supports  the  National  Command 
Authority  end  the  Joint  Chiefs  of  Staff  by  processing, 
correlating  and  presenting  the  information.  The  computers  on 
which  the  WWMCCS  is  based,  for  all  their  speed  and 
precision,  can  only  respond  to  that  information  for  which 
they  are  programmed.  Although  that  programming  may  be 
arbitrarily  complex  (to  include  such  items  as  look-up 
tables,  alternative  spellings/ formats  and  sophisticated 
deduction  algorithms)  it  is  still  finite  and  cannot  possibly 
cover  all  situations.  When  the  computer  cannot  deternine  the 
logical  content  of  a  received  report  It  nust  queue  that 
report,  awaiting  a  human  operator's  Intervention  and 
subsequent  correction.  The  operator,  when  ranually 
processing  the  report,  NAT  be  able  to  deduce  what  was  meant 
to  be  reported,  or  ray  be  forced  to  guess.  It  is  not 
reasonable  to  assume  that  the  operator  will  always  correctly 
determine  what   was  intended  by  an  originating   unit. 

Such  is  the  problem  :  The  computer  receiving  the 
information  requires  correct  format  and  content  in  order  to 
provide  accurate  and  timely  information;  the  human  sending 
the  information  does  not  easily  communicate  in  computer 
terms,  tending  more  towards  a  free  format,  uncoded  style. 
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B.   EARLY  IFFORTS 

It  should  be  clear  that  the  computer  is  both  the  prota- 
gonist and  the  antagonist  in  this  situation.  It  CAN  provide 
current  and  correct  information  to  the  decision  maker  IF  it 
receives  the  correct  informdtion  in  the  correct  format  in 
the  first  place.  However,  if  the  information  is  not  proper 
in  format  or  content,  correcting  it  will  at  best  create  a 
time  late  problem  and  at  worst  result  in  contamination  of 
the  WWNCCS  database  with  incorrect  interpeta tions . 
Concluding  that  computerized  information  processing  was  the 
best  means  of  satisfying  the  stringent  time  requirements 
considering  the  voluminous  data,  several  approaches  were 
attempted.  All  depended  on  the  originator  sending  accurate, 
timely,  properly  formatted  information. 

!•   Composite  Report  1C0MPRIP) 

A  Composite  Reporting  System  (COMPREP)  was  designed 
and  tested  by  Commander  First  Fleet  in  1971.  This  was  an 
attempt  to  reduce  the  number  of  required  operational  reports 
by  substituting  a  unified  report  formatted  for  automatic 
data  processing.  With  the  limited  resources  available  the 
system  was  not  sufficiently  developed  to  prove  its  worth  as 
an  effective  management  tool.  The  main  deficiency  proved  to 
be  the  coded  format  which  made  the  report  difficult  for  even 
the  originator  to  decipher  once  the  report  had  been 
prepared . 
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2-  HQ   13  Increment  I  1CCMPREP) 

This  study,  concluded  in  1975,  set  as  its  goal  the 
combination  of  the  Naval  Status  of  Forces  Report 
(NAVFORSTAT) ,  Movement  Report  (MOVIREP),  Casualty  Report 
(CASRIP)  aid.  Irergency  Military  Standard  Requestioning  and 
Issue  Procedures  (MIL5TRIP)  into  a  single  reporting  systerr. 
A  separate  reporting  structure  and  training  for  its  use  were 
developed.  This  systerr  was  not  rec or rr ended  because  it  did 
not  totally  integrate  required  operational  reports,  the 
messages  were  not  easily  drafted  and  the  final  rressage  was 
not  edsily  understood  by  the  originator.  The  test  and 
evaluation  (T  &  I)  report  concluded  that  it  was  basically  a 
rehash  of  the  the  existing  systerr  with  little  genuine 
improvement .  [Ref.  lj 

3.   Composite  Opera tionj  Reporting  System  ICORSJ. 

Reflecting  on  the  conclusions  of  the  COMFRIP  T  &  I 
report,  the  goals  of  COMPRFP  were  re-evaluated.  This  effort, 
designated  the  Composite  Operations  Reporting  System,  was 
conducted  between  the  Office  of  the  Chief  of  Naval 
Operations  (OPNAV)  CCRS  Steering  Committee  and  the  Naval 
Electronics  Systerrs  Command  (NAVILIX).  The  goals  of  the  CORS 
were : 

—  to  provide  alternatives  for  a  reporting  system  which 
would  provide  timely  and  accurate  data  to  required 
levels  of  command 
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—  to  minimize  reporting  requirements  of  individual 
units  ty  combining  Imployment  Schedule,  Movement 
Reports,  Casualty  Reports  and  Naval  Status  of  Forces 
Reports 

—  to  provide  significant  improvements  in  the  read- 
ability, draf tability  and  communications  systems 
impact. 

Of  tveive  alternatives  proposed,  the  final  recommendation 
was  to  develop  a  system  in  which  the  originator  would 
manually  draft  simple,  readable,  formatted  messages  using 
predefined  forms  and  decision  logic  trees.  This  alternative 
was  judged  most  feasible  due  to  its  ability  to  be 
implemented  early.  The  benefit  of  a  computer  based  Report 
Origination  System  (RCS )  in  the  drafting  of  the  messages  was 

realized  but  not  recommended  due  to  economic  constraints. 
Other  alternatives  rejected  were  strict  narrative  reports 
with  manual  insertion  into  the  database  by  operators  at  the 
receiving  sites  and  limited  narrative  reports  with  a  special 
front  end  text  processor  at  the  receiving  site.  These 
alternatives  could  not  reasonably  meet  schedule,  technology 
or  economic  contraints  at  that  time.  [Ref.  2j 
4-   Report  Origination  System  XROS) 

The   concept  of  a  computer  based  system   to   support 
the   originator   in   the  preparation  of   formatted   reports 
had  been  explored  during  the  CCRS  effort.   Such  a  system  was 
conceived  to  have  the  following  properties/capabilities: 
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—  be  microcomputer  cased 

—  be  uenu     driven 

—  provide  a   screen  display  similar  in  format   to   the 
required  report 

—  perform  error  checking  in  such  areas  as  proper  alpha- 
numeric characters,  f.'.eld  length  and  logical  content, 

—  provide  a  hard  copy  output  of  the  required  report  in 
acceptable  message  format. 

In  lecember  1976  Holyoak  [F.ef.  o]  of  the  Naval  Post- 
graduate School  issued  a  thesis  regarding  the  implementation 
of  the  PCS  for  a  NAVFOKSTAT  Dn  a  microcomputer  system.  This 
EOS  was  coded  in  Intel  Corporation's  PL/M  systems  language 
for  an  &28Z  based  Intellec  -  8  mainframe  with  161  of  main 
n-emory.  Subsequently,  in  June  1977,  Godley  [Eef.  4] 
completed  a  follow-on  thesis  based  on  the  same  hardware  but 
expanded  to  include  general  formatted  reports. 

C.   RECENT  LEVIICPMINTS 

Following  the  COPS  report,  several  different  areas  were 
investigated  to  gather  the  information  necessary  to  revamp 
the  operational  reporting  system.  These  efforts  concentrated 
on  defining  the  desired  data,  conducting  a  study  to 
determine  the  source  of  errors  in  the  current  system, 
conducting  a  HOS  prototype  development  and  test  and  an 
examination  of  systems  available  to  the  fleet. 
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1.   Navy  Reporting  Structure  iNRSj. 

As  previously  stated,  one  of  the  goals  of  the  CORS 
was  to  develop  an  operations  reporting  systerr  which  was 
unified,  easy  to  understand  in  both  concept  and  output  and 
which  provided  a  simple  message  drafting  capability. 
Consequently,  the  Chief  of  Naval  Operations,  OP-643,  was 
designated  as  the  central  point  of  contact  and  approval 
authority  for  rressage  text  formatting  and  date  element  issue 
and  activities  within  the  lepartment  of  the  Navy.  Intense 
effort  resulted  in  the  February  198?,  promulgation  of  the 
proposed  OPNAVINST  3503.x  series:  Navy  Reporting  Structure 
Operational  Reports  [Ref.  5].  This  seven  volume  instruction 
consists  of  the  following: 


OPNAVINST  3503.1  NRS 

OPNAVINST  3503.2  NRS 

OPNAVINST  3503.3  NRS 

OPNAVINST  3503.4  NRS 

OPNAVINST  3503.5  NRS 

OPNAVINST  3503.6  NRS 

OPNAVINST  3503.7  NRS 


General  Instructions 

Staff  Report  (STAFIREP) 

Employment  Schedule  Report  (EMS RIP) 

Casualty  Report  ;CASRIP) 

Unit  Status  and  Identity  Report 

(UN  I TRIP) 
Surface  Movement  Report  (SUREMOVE) 
Submarine  Movement  Report  (SUEMOVE) 


OPNAVINST  2503.1  summarizes  the  NRS  operational  reports, 
sets  responsibilities  of  cognizant  comrrands,  details  the 
management  of  the  program  and  establishes  clear  guidelines 
relating  to  formatting  procedures  and  message  preparation. 
All  other  instructions  in  the  series  relate  to  specific 
reports  and  provide  reporting  requirements,  data  set  and 
field  descriptions,  look:  up  tables  and  sample  worksheets  for 
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preparation  of  certain  report  items.  Numerous  examples  crs 
provide!  throughout  tine  instructions.  The  influence  of  buran 
readability  is  seer  in  the  care  with  which  data  field 
descriptors  were  selected.  The  influence  of  computer 
processing  is  seen  in  the  high  aagree  of  formatting 
require! . 

2.   Irrcr  Study 

Con  currently  witn  the  NES  development,  NAV&LiX 
conducted  a  stuiy  tc  determine  the  source  cf  errors  within 
current  formatted,  reports  sent  to  an  error  Queue  and  *  . 
result  cf  such  errcrs  or.  the  timeliness  cf  information 
er.terec  into  the  WWPCCS  database  [Hef .  S]  .  SASF.iPs, 
MCVEREPs  UNITFEFs  and  RAINFGSMs  were  examined  ari 
catalogued  by  number/type  errors,  type  unit  and  tire  late  tc 
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the  database.  72  percent  of  ail  MOVSEFs, 
DKITEEPs  and  46  percent  cf  ail  RAIN  JOE-MS  were  :':u:.  tc  be  in 
error.  vc  CAS3EF  -rrcr  analysis  was  jade.  TaDle  1-1  lists 
a  breakdown  of  the  average  errcrs  These  averages  represenc 
76.1  percent  of  the  tctal  errcrs  discovered.  The  rean  time 
delay  from  transmission  to  entry  into  the  data  case  for  a 
iressage  sent  tc  the  error  queue  is  shewn  ir  table  1-2. 
3.   Casualty  Pepcrt  iCASEEPj  Test 

rased  on  toe  results  of  the  ?rrcr  study  the 
decisicr  was  made  tc  develop  a  prototype  3CS  system  fcr  the 
MBS   CASREP   ''then  pending  release  as  N'WF  r        Pevision   A 
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Ta"ble  1-1.  Formatted  Message  Error  Study  Analysis 


DATA  CONTENT  ERRORS 
Character  Type 
Calculations /Associations 
Message  Identification 
Value  Pisrratch 
Tate-Time  Group 
Position 


PERCENT  OE  ERRORS 

2.1 
14.3 

4.? 
22.  e 

3.8 

1.2 


ECRMAT/STRUCTURE  ERRRORS 
Descriptor 
Sequence 

hissing  Mandatory 
Logical  Relationships 
Size 
Duplicates 


9.S 
5.7 
5.4 
1.8 
3.S 
0.7 


Table  1-2.  Average  Tirre  Delay  for  Report  Messages  in  Error 


TYPE  MESSAGE 
MCVREP 
UNITRE? 
RAINEOEM 
CASREP 


TOTAL  TIME  IELAY 

3  hrs   54  min 

3  hrs   45  rrin 

7  hrs   44  min 

33  hrs   22  min 
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Appendix  3).  The  contractor,  Sterling  Tata  Applications 
Incorporated  of  Sterling  VA.,  programmed  the  RCS  in  the 
BASIC  language  on  an  SLS  420  rricrocomputer  system.  In 
addition  to  providing  a  hard  copy  message  output,  the  system 
also  prepared  a  punched  paper  tape  compatible  with 
communications  equipment  aboard  ship.  This  prevented  typing 
errors  during  message  center  preparations  for  transmittal. 
The  system  was  deployed  aboard  the  USS  CALIFORNIA  (CGN-36) 
from  1  April  1981  through  3  June  1981  for  a  ROS  Prototype 
Tevelopment  Test.  Unfortunately  NWP  7  Rev  A,  App.  2  was  not 
released  in  time  for  the  test  which  necessitated  review 
under  the  then  current  and  proposed  instructions.  Dual 
Tessage  logs  were  maintained  for  the  81  messages  processed 
under  the  existing  and  proposed  systems.  Zrror  checking  was 
accomplished  after  deployment  by  comparing  these  logs  and 
conducting  an  error  queue  analysis  for  CASRIPs  from  the 
CALIFORNIA. 

The  test  noted  that  commercial  hardware  could  function 
successfully  in  the  shipboard  environment.  Only  one  hardware 
failure  was  noted  -  a  read/write  disk  head  disengagement 
during  sea  state  4  (10-15  degrees  roll,  5-7  degrees  pitch, 
4-6  *oot  waves)  operations.  This  was  corrected  by 
positioning  the  microcomputer  at  an  angle  to  the  ships  roll 
axis.  Four  presumed  software  failures  occured  on  the  afloat 
system.  Eowever  none  of  these  failures  could  be  recreated  at 
the   test   site  ashore.   The  report  implied  that  the   afloat 
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failures   were  dye  to  operator  error.   One  software   failure 
occured  at  the  shore  site  and  was  corrected.  [Kef.  7] 
4.   Word  Processing  Approach 

The  decision  to  implement  OFNAVINST  3503.x,  Naval 
Reporting  Structure  Operation  Reports,  has  been  delayed 
pending  replacement  or  recoding  of  the  Eoneywell  6000 
computers  on  whi:h  the  WWMCCS  resides  (projected  1987).  In 
the  meantime  the  Navy  had  decided  on  the  Xerox  860  Word 
Processor  as  the  standard  word  processor  approved  for 
service  purchase.  Current  efforts  are  aimed  dt  providing  the 
fleet  a  f ill-in-the-b Lank  format  capability  for  CASRIF  and 
IMSSIT  reports  as  sooi  as  possible.  As  a  f ill-in-the-bldn£ 
capability  does  not  ccrpletely  meet  the  full  requirements  of 
a  ROS  system  (no  ddtd  cross  checking,  error  notification, 
etc.),  Sterling  Data  Applications  is  examining  the 
feasibility  of  installing  a  Cr/r  bodrd  in  the  Xerox  860  tc 
convert  it  to  a  true  microcomputer.  Initial  indications  are 
that  this  is  d  possible,  though  costly  alternative. 
Additionally,  SDA  has  receded  the  prototype  RCS  CASREP  from 
the  BASIC  language  to  tne  CCrCL  language  in  compliance  with 
EOL  standards. 

The  purpose  of  the  RCS  is  clear  -  overcome  the 
boundry  of  the  man-computer  interface  oy  providing  the  the 
men  at  sea  the  tools  to  edsily,  rapidly  and  accurately; 
draft,   prepare,   review   and  transmit  formatted  reports   to 

higher  authority  dshore. 
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Considerable  effort  has  gone  into  proving  that  the 
concept  is  viable  and  effective.  With  the  prograrr  restricted 
"by  current  budgetary  constraints  and  actual  implementation 
dependent  on  the  installation  of  the  nev  WWPCCS  computers  or 
receding  of  the  current  system  to  accept  the  nev  reports,  it 
was  decided  to  examine  the  BOS  in  a  future  context.  The 
recent  increase  in  the  capabilities  of  commercial 
microcomputer  equipment  dnd  software  tools,  and  the 
concurrent  decrease  in  cost,  appears  to  make  the  planned 
implementation  of  the  ROS  concept  all  the  more  desirable. 
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II.  DESIGN  OBJECTIVES 

The  purpose  of  the  HOS  is  to  reduce  errors  in 
operational  reports  submitted  frorr  the  unit  level.  The 
concept  "behind  the  RCS  is  to  provide  the  originator  a 
microcomputer  "based  system  which  will  simplify  the  report 
generation  cycle.  The  proposed  benefits  of  the  ?,CS  are  a 
greater  confidence  in  the  accuracy  of  the  lata  retrieved 
from  the  WWMCCS  database  Dy  higher  command?  quicker 
insertion  of  update  information  into  the  database;  reduction 
of  manpower  required  to  correct  erroneous  reports  at  the 
WWPCCS  sites;  a  lowered  administrative  burden  en  the 
originating  unit.  Three  primary  areas  should  ce  addressed 
when  considering  the  design  of  such  a  system:  the  user,  the 
hardware  en  which  the  system  is  to  be  based  n±  the  software 
tools  with  which  the  system  is  to  be  implemented. 


A.   DS3P.  CCNSIIIRATICNS 

In  any  report  generation  cycle  several  'user' 
distinctions  may  be  made  (e.g.  clerk/typist.  irafter, 
releaser).  lach  'user'  has  particular  requirements  from  any 
system  providing  assistance  in  report  generation. 

!•   System  Operator 

At   the  most  fundamental  level,   the  system  operator 
(i.e.   the   clerk/typist;  is  responsible  for  preparation   of 


the  final  report  for  transmission  ana  the  maintenance  of 
historical  files.  His  responsibilities  would  entail  lata 
entry,  data  storage  and  retrieval,  and  an  understanding  of 
basic  system  capabilities.  Systerr  operator  requirements  end 
questions  would  entail: 

—  How  easy  is  the  system  to  learn  and  operate? 

—  Are  frequent  references  to  a  user's  manual  required? 

—  Eow  'crash'  resistan t/reliable  is  the  system? 

—  What  is  the  is  the  initialization  procedure? 

—  Eow  is  data  entry  accomplished? 

—  What  is  the  source  of  the  data  to  be  entered? 

—  What  is  the  input  error  correction  procedure? 

—  Loes  the  system  provide  a  properly  formatted  output? 

—  Toes  the  system  maintain  past  information?   If  so,  is 
that  information  easy  to  access? 

—  Does  the  system  make  the  job  easier? 

2.   Erafter 

The  report  drafter  must  determine  when  conditions 
require  a  report  to  "be  submitted.  Pertinent  information  must 
be  gathered,  usually  from  several  different  sources  -  one  jf 
which  may  be  previously  reported  data.  The  proper  format  for 
that  information  is  normally  decided  by  the  governing 
instruction.  The  drafter  may  be  only  minimally  concerned 
with  the  operation  of  the  system  or  may  desire  the 
capability  to  generate  a  report  in  real-time  (i.e.  without 
the  assistance  of  the  system  operator  and  without  a  drafting 
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document).   Trafter   requirements   and  questions   would   be 
slightly  different: 

—  How  closely  does  the  system  correlate  to  the 
instruction  that  requires  the  report? 

—  Toes  the  system  provide  detailed  drafting  information 
(data  fields,  field  lengths,  sources  of  information 
and  requirements  for  submission)? 

—  Toes  the  system  provide  a  means  of  presenting 
all  information  as  currently  reported? 

—  Can  the  system  'back-up'  to  any  stage  in  the 
reporting  cycle  and  present  information  that  was 
current  dS  of  thdt  time  (e.g.  when  required  to  verify 
information  as  requested  by  higher  authority)? 

—  How  easy  is  it  to  learn  the  system  operator's  jcb? 

—  Is  there  sufficient  information  available,  on  line  at 
the  terminal,  to  assist  in  the  real  time  preparation 
of  a  report? 

—  Toes  the  system  make  the  job  simpler/easier? 
3.   Releaser 

The  releaser  is  not  concerned  with  the  operation  cf 
the  systerr,  but  primarily  directs  his  attention  to  the 
requirements  to  submit  the  report,  the  content  of  what  is 
being  reported  and  the  ability  to  understand  the  report  with 
minimal  reference  to  the  governing  instruction.  Releaser 
requirements : 

—  Certainty  that  the  report  conforms  to  the  required 
f  orrrat. 

—  A  simple  guide  which  is  a  decoded  version  of  the 
report,  providing  a  logical  grouping  of  information 
and  what  that  information  represents. 
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B.   DESIGN  REQUIREMENTS 

With  the  three  separate  'users'  to  consider  and  the 
variety  of  their  requirements  it  is  clear  that  a  three 
tiered  approach  is  necessary  to  provide  the  individual  user 
the  required  features. 

!•   Syjtem  Operator 

The  system  operator's  requirements  tend  to  center 
about  the  microcomputer  system  and  the  RCS  program.  To 
satisy  these  requirements: 

—  Provide  a  detailed  User's  Manual  covering  such  areas 
as  installation  procedures,  general  operation, 
displays,  etc. 

—  Logically  group  data  sets  together  in  screen  displays 
which  are  annotated  in  plain  language  with  adequate 
on  screen  prompts.  The  screen  displays  should  close- 
ly follow  any   drafting  document. 

—  The  system  should  be  user  friendly/fault  tolerant. 
There  should  he  no  abnormal  terminations.  Any 
termination  requires  user  notification  and  procedures 
to  be  followed  to  resume  normal  operation. 

—  Incorrect  entries  should  trigger  clear,  concise  error 
messages  which  inform  the  user  of  the  error  and, 
when  appropriate,  the  proper  action  to  be  taken. 

—  Limit  keyboard  input  to  only  those  characters 
acceptable  for  Optical  Character  Header  (OCR)  and 
BAUICT  message  transmission  codes.  All  illegal 
keyboard  inputs  should  be  rejected  with  notification 
to  the  user. 

—  Eata  entry  should  be  menu  driven  in  cases  where  only 
distinct  choices  are  possible. 

—  Where  the  user  must  enter  data  into  fields  the  input 
should  be  limited  to  the  allowed  field  length. 

—  If  the  entry  is  obtained  from  a  table,  the  entry 
should  be  cross  checked  against  thct  table  to  ensure 
its  validity. 
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—  Fields  of  fixed  formats  such  as  date-time  groups, 
latititude-'iongitude  positions  should  appear  as  a 
template  over  which  the  operator  enters  the  proper 
data.  All  such  fields  (and  associated  checksums) 
should  he  verified. 


—  Numeric  fields  should  se  verified  a^d   range  checked. 

—  Sum/total  numeric  fields  should  he  cross  checked 
against  the  sum  of  the  component  fields. 

—  Mutually  exclusive  items  should  he  treated  as  suci: 
within  the  system  and  displays. 

—  Input  of  unit-type  specific  items  should  only 
he  allowed  for  the  unit-types  authorized  (e.g.  if 
only  a  ship  can  report  some  item,  an  air  unit  would 
not  he  allowed  to  report  it). 

—  The  system  should  provide  a  two  format  outout  ontion: 
11-173  (OCR)  and  Standard  Naval  Message  'Format  as 
received  during  fleet  hroadcasts. 

2.   Irafter 

The   drafter  is  ooviously  concerned  with   assistance 

in   the  preparation  of  the  report  .   To  provide  this   service 

the  system  should: 

—  Prepare  a  hardcopy  rough  drafting  form.  Items  on  the 
forrr  should  he  keyed  to  the  display  screens  presented 
to  the  system  operator  and  therefore  he  logically 
grouped.  The  drafting  form  should  closely  follow  the 
instruction  requiring  the  report.  Information 
required  on  the  form  will  te: 

—  the  data  set  name,   associated  field  names  and   a 
fill  in  area  of  the  appropriate  field  width 

—  source  of  the  information 

—  meaning  associated  with  each  field  if  not   self 
explanatory 

—  conditions  for  suhmission  of  the  data  set 

—  all   currently   reported  information  (in   message 
format  ) 


—  Prepare  the  proper  format  internally.  The  drafter 
should  only  provide  the  necessary  information  to  the 
system  operator  for  entry  into  the  EOS, 


Additionally,  there  is  the  const raint  of  the  drafter 

operating   the  system  for  real-time  report   generation.   For 

this  requirement  the  drafter  will  require  ail  the  assistance 

of  the  system  operator  plus: 

—  An  additional  on  line  help  facility  which  contains 
information  normally  available  only  in  the  draft 
document . 

3.   Releaser 

With   automatic  formatting,   the  releaser  need   only 

he  concerned  with  the  content  of  the  report.   Expanding   the 

rough  drafting  document  to  include  explanations   of   coded 

items   and   allowing  an  option  for  preparation  of  this   form 

cased  on  the  information  to  be  reported  should  satisfy   this 

recui  remen t . 

C.   BAHDHABI  CCNSIBISATIONS 

As  the  HOS  should  only  De  considered  a  tool  in  the 
preparation  of  reports,  it  should  be  implemented  on  as 
economical  a  microcomputer  system  as  possible.  It  should  net 
require  a  system  that  is  MIL-SP1C  compatible  (such  as  the 
UYI-20).  Cff  the  shelf  commercial  equipment  appears  the  best 
approach.  Unfortunately  the  Navy  has  not  standardized 
purchase  procedures/requirements  for  a  general  purpose 
commercial  microcomputer  as  it  has  for  word  processors.   The 
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proliferation  of  commercial  models  thoughout  the  fleet  is 
well  known  -  TFS-80S,  AFPLEs  and  EPs  to  narre   several. 

The  rrost  cornron  eight-tit  microprocessor  architecture  in 
use  today  is  that  of  the  Z-80/808e  group.  To  have  the 
greatest  commonality  with  this  group  it  was  determined  that 
the  rricrocorrputer  should  be  Z-80  tased.  Additionally  it  was 
desired  to  have  dual  single-sided  single-density  disk  drives 
to  provide  a  minimum  of  one-half  megabyte  of  storage.  This 
would  allow  the  program  executable  code  to  "be  contained  on 
one  disk  while  data  storage  files  for  past  reports  couid  be 
filed  on  the  other  disk.  Terminal/keyboard  groups  are  ds 
widely  varied  as  microcomputer  systems  if  not  rrore  so.  The 
requirement  was  for  a  full  ASCII  keyboard  with  a  minimum  ,?3 
line  by  79  column  terminal  display.  Other  differences 
between  terminals  can  normally  be  accomodated  by  a  software 
interface  as  long  as  the  electrical  connection  is  via  the 
industry  standard  RS-232.  It  was  desired  that  the  printer  be 
of  the  page  feed  variety  in  order  to  develop  the  necessary 
procedures  for  the  alignment  and  individual  paging 
mechanisms  as  would  be  used  in  preparing  an  OCR  Joint 
Messageform  (rr-173). 

On  the  basis  of  availibili ty ,  an  ACS  8000-1  Altos 
Computer  System  and  a  EATAMEIIA  ELITE  2500  keyboard  and 
terminal  were  selected.  A  page  printer,  however,  was  not 
readily  available  and  a  Teletype  Corporation  fodel  40 
continuous  line  printer  was  substituted. 


r.   SOFTWARE  CCNSIEERATICNS 

Since  the  most  common  operating  system  for  commercial 
microcomputers  is  currently  Eigital  Research's  Control 
Program  for  Microprocessors  (CP/M),  this  system  was  included 
whenever  an  operating  system  was  required.  Additionally  many 
of  the  language  compilers  examined  fcr  the  system  required 
CP/M. 

As  it  was  desired  to  code  the  system  in  a  structured 
language  which  allowed  data  abstraction  (looking  forward  to 
a  full  system  development  in  the  proposed  department  of 
Eefense  standard  language  AEA  [Ref.  8]),  several  variants  of 
PASCAL  were  examined  including  UCSE  Pascal,  JPT  Pascal, 
SORCIM  Pascal  and  MP+  Pascal  (Eigital  Research).  Initial 
programming  began  with  DCSE  Pascal  but  was  abandoned  when  it 

was  discovered  that  the  available  version  did  not  possess 
the  facilities  for  separate  module  compilation.  Coding 
resumed  with  JRT  Pascal  but  was  quickly  abandoned  for  lack 
of  helpful  debugging  diagnostics.  The  examination  of  SORCIM 
or  MP+  as  an  alternative  was  interrupted  by  the  ready 
availability  of  JANUS/AEA  by  RR  Software,  Madison,  WI .  [Ref. 
S] .  JANUS/ADA  is  a  limited  subset  of  the  proposed  standard 
but  met  the  requirements  for  a  structured  language  that 
allowed  data  abstraction,  required  CP/M  and  ran  on  a  Z-80 
based  system.  The  limitations  irrposed  by  the  subset  will  be 
refered  to  as  they  applied  during  the  implementation  of  the 
system  (Chapter  IV). 
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Ill  .  SYSTEM  CJEEVISW 

Tc  support  the  requirements  discussed  in  Chapter  II 
several  different  computer  systems  levels  trust  be  accressed. 
At   the  most   elementary   level,    software   interfaces   to 


terminals 


printers  are  required.   As  the  size   cf 


program  expanded  and  it  became  necessary  tc  physically 
separate  the  program  into  modules  a  rears  of  module 
communication  was  required.  The  majority  cf  the  system  is 
concerned  with  the  capabilities  which  the  prc^rarr  provides 
ar.c  hovi  the  repcrt  inf creation  is  grouped,  displayed  and 
maintained.  Th<=  NHS  L'NITHEP  [Hef.  10]  was  selected  as  the 
demonstration  vehicle.   Figure  c-i  details   the   system 

-  j  ^**  a  if  1  t:  n  i 

A.      LOGICAL    ir.FCr^ATICN    GROUPING 

?ased      or    the    requirements    cf    the    three   users      iiscussed 


Chapter    II,    ere    cf    the   driving   design   factors 


T»   t 


h  e  ?.  U  S 


PNITSEP  is  a  logical  sroupin^  cf  information  -  both  in  the 
drafting  document  and  screen  displays.  Upon  examination  cf 
the  UNITFIP  instruction  it  was  observed  that  eight  areas, 
called  situations,  are  ieliniated  which  provide  a  partial 
logical  grouping  [Pef .  10:  para.  1.5a]: 


(1)  Personnel  Status 

'2)  Administrative  Status 

(3)  Unit  Combat  F.eadiness  Assessment 
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(4)  Aircraft  end  Crews  Status 

(5)  Major  Equipment  Status 

(6)  Special  Capabilities  Status 

(7)  Increased  Defense  Readiness  Status 

(8)  Reserve  Augmentation  Status 


A  chapter  of  the  instruction  is  devoted  to  each  situation. 
Eetails  for  the  particular  data  sets  which  comprise  the 
situation  and  the  reporting  requirements  for  each  are 
provided.  Review  of  the  data  set  summaries  for  each 
situation  reveals  that  certain  data  sets  are  common  tc  all 
situations.  Tor  this  reason  an  additional  area,  (0)  Local 
Information,  was  forced  to  group  the  comncn  data  sets  and 
other  message  related  items.  A  final  situation,  (9)  Type 
Corrrrander  Reports,  was  created  to  separate  iters  which  would 
he  designated  to  be  reported  by  higher  authority. 

Three  areas  were  selected  to  demonstrate  the 
implementation  approach.  LOCAL  Information  was  selected  as 
it  provides  elements  corrmon  to  any  NPS  message. 
AEMINISTEATIVE  Status  was  selected  for  the  relative 
simplicity  of  the  data  sets.  AI5CBAIT  dnd  CREWS  Status  was 
selected  for  the  complex  inter-relationsnips  between  the 
data  components.  The  selected  situations  and  supporting  data 
sets/inf orrration  are  detailed  in  Table  3-1. 

B.   PRCGRAr*  ACTIONS 

Once  the  logical  grouping  of  data  had  been  confirmed  it 
was  necessary  to  to  establish  the  set  of  program  actions 
which  could  be  performed  on  the  data. 
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!•   ACTION  -1-  _:  Provide  a  Draft  Document 

The  drafting  document  supports  four  requirements: 

—  It  is  the  drafter's  worksheet  and  therefore  for  each 
data  set  provides;  plain  language  descriptions  of  all 
fields,  field  length  limitations,  the  source  of 
information  (governing  directives  or  pertinent  table 
references)  and  the  data  set  reporting  requirements. 

—  It  is  the  interface  between  the  drafter  and  the  system 
operator.  Information  presented  conforms  directly  to 
the  screen  displays. 

—  It  is  the  means  of  reviewing  all  information  as 
currently  reported.  Thus  6dch  data  set  or  item  of 
information  as  previously  transmitted  is  reproduced  i  r. 
message  format. 

—  It  is  the  rreans  for  the  releaser  to  review  the  report 
with  minimal  reference  to  the  governing  instuctions. 
Therefore  it  contains  plain  language  definitions  and 
and  an  explanation  of  any  coded  iterrs. 

Since  the  draft  document  has  a  multiple  purpose  it  is 
necessary  for  the  system  operator  to  select  the  purpose  for 
which  the  document  is  required.  This  is  accomplished  by 
limiting  the  selection  to  forms  based  en  previously 
transmitted  information  or  forms  based  on  the  current 
information,  prior  to  actual  messoge  transmittal.  The  system 
operator  also  selects  the  situation  for  which  draft 
information   is   required  since,   in  general,   reports  are 
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prepared   for   particular  situation  and  do  not   require   the 
draft  information  available  for  other  situations. 
2»   ACTION  -2-  :    Initiate  a  New  Report 

This  selection  allows  the  program  to  reset  that 
information  which  is  variable  for  the  individual  occurence 
of  a  report.  Only  one  UNITSEP  may  be  in  work  at  a  time. 
However,  in  a  full  ROS  including  such  items  as  CASRIPs, 
th*£  capatility  to  concurrently  prepare  several  reports 
should  he  provided. 

3.   ACTION  -3-  i    Modify.  Report  Information 

This  action  allows  the  system  operator  to  change, 
adi  or  delete  information  as  required  when  preparing  a 
report.  The  system  operator  selects  the  situation  to  which 
the  report  information  applies  and  program  flow  is  directed 
to  the  sutprograms  for  displaying  and  modifying  that  data. 

4*  ACTION  -4-  :  Prinjt  Hard  Copy  Message  Format  Report 
To  satisfy  a  command's  archiving  requirements,  the 
system  provides  the  capability  of  producing  hard  copy  output 
of  either  the  current  message  (undergoing  preparation)  or 
back  messages  (via  either  serial  or  date-time  group 
reference).  The  information  in  back  messages  is  not 
alterable  ty  the  system  operator.  A  choice  of  formats  (OCR 
and  fleet  broadcast)  is  allowed. 

5»   ACTION  -5-  :   Log  jthe  Report  as  Transmitted 

In  general  the  date-time  group  for  a  message  is  not 
assigned   until   transmittal.   When  the  date-time   group   is 


assigned  AND  provided  to  the  system,  report  ddtd  is  filed 
for  possible  future  recall,  maintaining  a  serial/date-tire 
group  cross  reference. 

e-   ACTION  -€-  j  Erase  the  Current  Rep_ort 

At  times  during  the  report  generation  cycle  (Figure 
3-2)  a  report  may  be'  either  cancelled  or  so  severely  altered 
that  information  cs  currently  provided  is  useless.  This 
action  allows  the  system  operator  to  'fall-hack'  to  the 
period  before  the  report  was  initially  generated. 

7-      ACTION  -7-  :  Provide  Verification  Information 

The  NPS  requires  the  Fleet  Commanders  in  Chief 
(FLTCINCs)  to  conduct  periodic  reviews  of  all  received  unit 
information  to  injure  current  and  accurate  data  is  being 
maintained  in  the  WWMCCS  database  [Ref .  10,  para.4.3dj .  This 
action  allows  all  Information  as  currently  reported  by  the 
unit  to  be  printed  for  comparison  with  the  7LTCINC  feedback: 
verification  message. 

8.   ACTION  r8r  .:  Cuit 

This  action  allows  normal  termination  of  the 
program,  maintaining  all  information  as  input  during  the 
terminal  session. 

C.   PFOGPAP  DISPLAYS 

Once   the  system  operator  has   selected   to  modify 

information   for   a   particular  situation,   control  of   the 

program  passes  to  the  subprogram^ s)  responsible  for  allowing 
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modification  for  the  situation.  The  displays  are  groi.ped  in 
direct  correspondence  to  the  drafting  document  with  dc.ta  set 
names  and  fields  notated  in  full  form  vice  abbreviation.  All 
displays  are  initially  menu  driven  (positioning  cf  the 
cursor  determines  the  data  sets  to  be  selected  and  inputs 
allowed)  with  abbreviated  prompts  exhibited  tc  notify  the 
operator  of  legal  inputs.  Additional  EILP  information  is 
available  for  many  items  by  typing  a  '?'  at  the  appropriate 
cursor  position.  Where  ddtd  field  contents  are  limited  to 
only  a  few  specific  entries  the  choice  is  oy  Tienu  selection. 
Where  data  field  contents  are  obtained  from  a  table,  the 
table  is  cross  checked  to  allow  only  a  legal  table  value. 
All  special  purpose  fields  (e.g.  date-time  groups,  Lit/long 
positions)  are  checked.  All  numeric  fields  are  validated  and 

checked  for  relational  comparisons  if  required,  laid  text 
entry  in  all  other  fields  is  limited  to  the  field  len.nh  as 
established  Dy  the  instruction  [?ef.  12]  .  Characters  are 
automatically  limited  to  those  allowed  for  message 
transmission  codes  with  automatic  conversion  of  lower  case 
letters  to  upper  case.  The  cursor  automatically  moves  tc  the 
next  legal  position  when  a  selection  has  been  made,  the 
field  length  has  been  reached  or  the  operator  terminates 
data  entry  by  a  carriage  return  .  The  option  to  reselect 
items  of  the  current  display  is  provided  prior  to  continuing 
to  the  next  display.  Eisplay  formats  are  provided  in 
Appendix  A. 
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r.   LATA  STCRAGT 

All  UNITREP  information  is  maintained  in  a  pair  of 
external  disk  files  (UNIT000A,  UNIT000E)  refered  to  as  the 
Workfile.  This  arrangement  allows  buffering  of  lata  by 
report  in  the  event  of  hardware,  disk  or  software  failure. 
All  modifications  are  made  to  the  workfile.  When  a  report  is 
being  logged  as  transmitted  (nc  further  update  for  that 
serial  message  is  required) ,  the  Workfile  is  copied  to  a 
separate  UNITE!?  files  storage  disk  inserted  in  trie 
microcomputer  3:  disk  drive.  The  filenames  UNITxxxA  and 
UNITxxxS,  where  xxx  represents  the  report  serial  number,  are 
used.  This  allows  the  data  to  be  recalled  for  verification 
or  message  copy  purposes.  The  Workfile  is  reset  cs  required 
when  a  new  report  is  initiated. 
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IV.  I^PLIMINTATION 

This  chapter  discusses  the  author's  ROS  UNITREF 
SUBSISTED  implementation  in  the  Ada  language.  A  review  of 
the  limitations  of  the  JANUS/ALA  subset,  a  prograir  overview 
and  a  discussion  of  the  the  various  components  are  provided. 
The  ROS  UMTREP  Operator's  Manual  (Appendix  A)  and  the  ROS 
UNITREP  COMPUTER  LISTING  (Appendix  C)  rrav  be  referee  to  for 
rrore  detailed  inf  orrrat  icn  . 

A.   ATA  SU3SET  RESTRICTIONS 

The  JANUS  subset  of  the  Add  language  provides  many  of 
the  sophisticated  features  required  in  a  high  level 
language.  lata  abst  roctior.  and  strong  ddta  typing  allows  a 
clearly  readable  coding  style  with  the  ability  to  uncover 
and  correct  errors  during  compilation  vice  run  time.  The  Ada 
package  concept  allows  a  rrodularization  that  leads  to 
localized  and  easily  modifiable  code  which  can  be  altered 
without  serious  consequence  to  the  program  as  a  whole. 

Fowever,  the   lefty  goals  of  the  Ada   language  do   not 

easily   lend   themselves  to  implementation   on   small   scale 

microcomputers.   Quoting   from   the  JANUS/ALA   Package   User 

Manual  : 

"The  major  design  tradeoffs  in  Janus  were  power  versus 
simplicity.  A  major  effort  was  made  to  keep  the  Janus 
sunset  as  small  as  reasonable.  This  was  done  in  order  to 
complement  yet   not  inhibit  the  ambitious  nature  of   Ada. 
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Janus  was  designed  specifically  for  the  microcomputer 
environment.  Therefore,  every  Ada  construct  which  would 
have  required  excessive  rracnine  resources  was  rejected. 
The  complicated  features  of  Ada  that  are  viaole  only  for 
large  computers,  n  e.g.  parallel  processing,  are  not 
included  in  Janus.   [Ref.  9:  p .  1-lJ 

It  is  not  the  intent  to  review  all  JANUS  deficiencies  here. 
A  complete  list  is  available  in  the  JANUS /ADA  PACKAGE  USEB 
p*ANUAI  [Bef.  9:  App.  L] .  Those  items  which  detracted  frorr 
the  SOS  ONITREP  implementation  will  be  discussed. 

1.  lack  of  a  Standard  I/O  ilnput^0utp_uti  Package 

JANUS  implements  this  concept  through  the  use  of 
library  modules.  Four  of  these  library  rrodules  were  used  by 
the  program  The  subprograms  which  are  provided  by  these 
modules  are  listed  in  Appendix  3.  Unfortunately  many  Ada  I/O 
subprograms  were  not  implemented,  particularly  those 
addressing  :!"ull  screen  console  operation  and  printer  usage. 
This  required  creation  of  the  necessary  functions. 

2,  Lack  of  Aggregates 

Aggregates  are  written  forms  denoting  a  composite 
value,  essentially  being  record  and  array  literals.  Without 
aggregates  all  composite  variables  required  initialization 
at  run  time  in  the  package  boay.  This  detracts  from 
localizing  such  items  as  constant  strings  with  their  value 
at  the  declaration. 

3»   lZE§  Limitations 

The  JANUS  compiler  maintains  internal  tables  for 
certain  objects  encountered  during  compilation.  A  maximum  of 
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ninety  (90)  different  data  types  may  be  specified.  As  all 
UNITREP  data  sets  and  rany  of  their  corrponents  were 
represented  as  serarate  types,  the  limit  was  exceeded.  This 
necessitated  irodif ication  of  the  program  and  data  structure 
into  modules  where  the  total  number  of  types,  for  each 
module,  were  within  limits, 

4.   lack  of  Inception  Handling 

This  Ada  feature  allDws  a  program  tc  react  to  an 
event  which  causes  suspension  of  normal  program  operation. 
Without  the  built-in  exception  handling  capability  all 
keyboard  input  was  character  and  string  buffered  and  the 
content  interpeted  in  separate  subprograms.  Subtyping  could 
not  be  usefully  employed  since  this  constraint_error  type  of 
exception  resulted  ir  program  aborts. 

*•   I^ck  of  an  Overlay  Capability 

In  the  microcomputer  environment  the  utilization  of 
overlays  for  medium  and  large  programs  is  a  necessity.  The 
lack  of  overlays  required  physically  dividing  the  program 
into  four  independent  executacle  files  and  introduced  the 
need  for  comiTunicat ion  and  control  components.  Since  the 
program  is  structured  with  a  large  set  of  supporting 
subprograms  (24  kilobytes)  this  information  trust  be 
reproduced  for  each  module.  Therefore  ?2  kilobytes  of 
secondary  storage  are  duplicated  code.  Additional  disk 
access  time  is  required  to  load  the  larger  program  modules 
in  comparison  to  what  would  be  rruch  smaller  overlays. 


6.   !>§ck  of  Random  Access  {Read/Write!  External  Files 

In  JANUS  external  files  can  only  fie  read  or  written. 
Such  restrictions  require  the  entire  external  file  to  be 
loaded  into  main  rrerrory  for  the  modif  icat  ion  cf  a  single 
component,  even-  if  the  file  is  static:  in  composition.  For 
large  external  files  the  impact  on  rain  rrerrory  and  program 
size  is  prohibitive.  This  also  prevents  the  use  of  dynamic 
files,  which  resulted  in  the  inability  to  provide  the  user 
with  an  or.  line  file  update  capability  for  rrain taining 
certain  tabularized  data. 

?•   I^leHsTitisIioH  of  the  Type  String 

JANUS  uses  dynarric  strings  and  supports  full  string 
operations.  Although  not  detrimental  for  the  purposes  of 
this  program,  portability  and  compdtdbillty  problems  may 
occur  with  other  Ada  compilers. 

B.   PROGBAf  OVERVIEW 

Prior  to  reviewing  the  program.,   an  explanation  of  terms 
used  in  the  discussion  is  necessary: 

—  subprogram:  a  procedure  or  function, 

—  package:  the  Ada  construct  for  the  logical  grouping  of 
information . 

—  package  specification:  that  part  of  a  package  which 
contains  the  declarations  of  types,  constants, 
variables  and  visible  subprograms. 

—  package  body:  that  part  of  a  package  which  contains  the 
information  necessary  to  support  the  subprograms 
declared  in  the  oackage  specification. 
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—  module:  the  executable  code  (.COP  disk  file)  which 
results  when  packages  are  compiled  and  linkeo.  The 
module  narre  is  that  of  the  highest  level  package. 

The  lowest  level  in  the  program  hierarchy  consists  of 
the  basic  program  support  features  which  provide  console  and 
printer  communication,  global  information,  program  module 
communication  and  utility  subprograms.  This  level  consists 
of  the  PACSAGFs  consio ,printio ,urglo bal  and  urutil  as  shown 
in  figure  4-1. 

The  UNITE IP  data  structure  definition  is  divided  into 
two  components  by  FACXAGEs  unit  re pA  and  unit  rep  3.  The 
respective  subcomponents  (PACXAGFs  urglbl,  urlocalA, 
uradmin3  and  urairB)  and  structure  are  shown  in  Figure  4-2. 

PACIAGI  unitrep  provides  tne  main  selection  subprograms 
for  choosing  and  processing  the  desired  progratr  actions  ana 
areas,  as  well  as  the  constructs  for  directing  program  flow 
to  the  other  control  packages  (unitrepl,  unitrep2, 
unitrep3).  PACKAGE  nnitrepl  also  interfaces  to  the  LOCAL 
Information  subprograms  contained  in  PACKAGZs  urlocal  and 
urlocall.  Modules  unitrep  and  unitrepl  operate  on  data  as 
defined  by  unitrepA.  File  checking  and  handling  subprograms 
for  the  'A'  structure  are  contained  in  FACKAGI  filerA.  The 
PACIAG?  initialA  is  used  to  set  the  contents  of  the  external 
disk  workfile  (UNIT000A)  as  required  for  initial  program 
operation.  (Figure  4-3) 

PACKAGS  unitrep2  controls  access  to  all  AI^  INISTFATIVI 
processing  subprograms  (PACKAGI  uradmin)  as  well  as  all   AIB 

45 


w 

u 

+j 

a 

(0 

0) 

u 

■u 

< 

u 

cu 

3 

F 

i 


a 

rH 

9 

rH 

H 

03 

d 

•H 
-P 

1 

3 

0 

u 

3 

rH 

< 

U 

U 

cn 

04 

3 

< 

0. 

3 

H 

0 

0 

•H 

rtj 

-P 

^■2 

c 

u 

■H 

< 

H 

a, 

a, 

c 
o 

•H 
+J 

rtJ 
N 
•H 

C 

id 

cr« 
u 
O 

■p 
M 
O 

cn 
o 

•H 

cn 

(0 


a 

CJ 

0 

3 

•H 
(0 

3 

3 

< 

0 

cu 

0 

I 

<u 
u 

3 
•H 


46 


z 

o 

H 

CQ 

w 

H 

& 

3 

<C 

cu 

i 

u 

u 

fa 

-H 

< 

H 

c 

fa 

u 
w 

fa 

CO 

3 

^-^ 

z 

o 

H    CQ 

w 

Eh    C 

o 

<C    -H 

i 

y 

Cm    03 

rti 

H      54 

a. 

U    3 

W 

fa 

co 

*"-* 

z 
o 

H    < 

w 

&H       Ci 

CJ 

<    a> 

3 

U       V4 

D 

fa   -H 

rt! 

n     C 

fa 

u  3 
w 
fa 
co 

Z 

o 

M 

< 

u 

H 

H 

3 

6 

(CJ 

o 

0 

CJ 

fa 

rH 

rt! 

H 

M 

fa 

u 

w 
fa 

CO 

3 

z 

o 

H 

fa 

H 

O 

< 

H 

2 

CJ 
H 

rH 

cj 

fa 

en 

< 

M 

M 

fa 

CJ 

w 
fa 

CO 

a 

c 
o 

•H 

to 

N 
•H 

C 

id 

en 

8 

a> 

M 

3 
-U 
O 

3 

CO 

nl 
4J 

a 


CN 
I 

CU 

u 

3 
CT> 
•H 
fa 


47 


H 

9 

03 

w 

H 

U 

3 

o 

0 

0 

*! 

M 

u 

r-H 

cu 

3 

1         *c 

M 

1             (It 

3 

i 

1 

1 

r 


\ 


t 

t 


ft 

CO 

ft 

o 

unitr 

■H 

c 

u 

< 

u 

M 

—■a-- 

-  « 

i— i 

u 

•H 

< 

U-j 

CU 

L 


r 


1 

4J 

M 

C 

0 

0 

ft 

•H 

ft 

4-> 

3 

r3 

CO 

N 

•H 

0 

c 

•H 

!3 

U) 

ct> 

(0 

n 

CQ 

o 

J 

fl 

4-> 

«3 

Q 

_ 

< 

- 

"I 


< 
ft 

5-1 
+1 
-H 

C 

3 


u 

3 
4J 

u 

3 
5-1 
■P 
CO 

03 
4J 

ra 

Q 


I I 


I 


1  /  x 

• .  y 

J> 

H 

ft 

3 

o 

a 

4-» 

0 

-W 

< 

3 

0< 

3 

< 

W 

H 

3 

f3 

< 

•H 

£ 

4-1 

0 

■H 

< 

c 

& 

-H 

S-l 

o 

<u 

5-1 

3 

4J 
O 

3 

4-> 
CO 

i 

u 

o> 
o 
u 


m 

i 
<* 

o 

54 

3 
CN 
•H 

rx, 


48 


r 


i 


m 

8- 

^-. 

w 

w 

C4 

>i 

3 

CN 

3 

a) 

rtj    m 

U-l 

< 

M 

S 

t3 

2 

u 

■H 

■•a    r 

u 

■H 

<    M 

0 

< 

M 

<c 

g 

cu    3 

s 

cu 

3 

a, 

i\ 

04 

<y 

Qj 

u 

0) 

■u 

S-i 

•H 

4-> 

S 

•H 

§ 

W 

in 

o 

h 

—a- 

JO) 1 

u 

•H 

< 

U-l 

a. 

fr 

CN 

W 

a 

3 

QJ 

3 

■P 

u 

•H 

d! 

r- 

A 

3 

W 

3 

ro 

^ 

in 

* 

■H 

u 

(13 

< 

^ 

Oh 

3 

.._ 

4-» 

o 

ft 

CO 

U 
•H 

en 

(0 

pa 


c 
o 

•H 
U 
ITJ 
N 
■H 
C 
03 
Cn 

O 


I I 


1 


CO 

a. 
a) 

+J 


(1) 

3 

4-» 
U 

3 
!m 

4J 
CO 

ra 

+J 

13 

a 


L-„ ' 


1 


CQ 

Da 

H 

3 

id 

Si 

■H 
4J 

u 

•H 

*C 

C 

cu 

■H 

Ifl 


a 


P. 

o 

u-i 

<u 
n 

3 

o 

3 

jJ 
CO 


M 

O 

u 

04 


CD 

S-l 

3 
cn 
■w 


i+9 


processing  subprograms  (PACKAGE  uralr)  except  those 
concerning  the  modification  of  AIR  information.  PACKAGE 
unitrep3  is  the  interface  to  the  AIR  information 
modification  subprograms  as  contained  in  PACKAGES  urairl, 
urair2,  urair3.  Modules  unitrep2  and  unltrep3  operate  on  the 
'3'  data  structure.  File  operations  are  contained  in  PACKAGE 
filerS.  FACKAGF  initials  sets  the  contents  of  the  external 
disk  wcrkfile  (UNITP00B)  as  required  for  intiai  program 
operation.  (Figure  4-4) 

C.   3ASIC  PROGRAM  SUPPORT  COMPONENTS 

Four  common  packages  are  required  by  each  of  the  four 
program  modules  to  provide  the  basic  support  items.  Two  of 
the  packages  -  consio  and  printio  -  are  designed  to  be 
customized  to  the  specific  hardware  configuration  of  the 
terminal  and  printer.  A  third  -  urglobal  -  provides  global 
information,  user  assistance  subprograms  and  module 
communication  information  to  control  program  flow.  The 
fourth  -  urutil  -  consists  of  routines  for  the  checking  of 
redundant  fields  and  higher  level,  general  subprograms. 
Initially  a  fifth  package  -  urtest  -  was  included  to  gather 
testing  information  on  the  system.  Although  not  included  in 
the  final  product  it  will  be  discussed. 

1-   ^2DI2l§  1§2^§£§  iconsioj 

This   package   satisfies   three  purposes:   terminal 
customization,   keyboard   character   conversion   and   screen 


oriented   (x/y)   addressing  procedures  for   data   input   and 
output. 

a.   Terminal  Customization 

In  general,  all  terminals  have  a  specific 
interpetation  of  the  American  Standard  Code  for  Information 
Interchange  (ASCII)  character  coaes  in  relation  to  terminal 
functioning  (e.g.  cursor  positioning,  screen  backspace, 
clear  screen).  Any  program  function  or  procedure  dependent 
upon  a  specific  interpetation  of  one  or  more  of  these  codes 
would  require  modification  for  the  specific  terminal.  This 
would  be  unsatisfactory  In  light  of  the  number  of  different 
terminals  available  and  the  number  of  different  subprograms 
used  to  support  the  full  screen,  menu  driven  user 
interface.  For  this  reason  items  peculiar  to  terminal 
functioning  are  hidden  from  the  program  in  the  consio 
package  tody.  For  localization  purposes  those  ASCII 
character  codes  which  have  accepted  meanings  (carriage 
return,  tell,  horizontal  tab)  are  declared  in  the  package 
specification,  while  non-standard  interpeta tions  are 
declared  in  the  package  body.  When  customizing  to  a 
particular  terminal  only  those  items  in  the  package  body 
irust  be  modified.  The  package  body  is  then  recompiled  ivice 
recompiling  the  entire  program)  and  the  four  modules  are 
relinked.  An  example  of  the  differences  is  between  two 
terminals  is  given  in  Table  4-1.  Two  procedures  directly 
relate  to  terminal  customization: 
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—  PROClItJEE   gotoxy(x,y:    IN    INTEGER); 

The  program  is  coded  on  the  assumption  that  it  will  be 
implemented  on  a  terminal  allowing  at  least  23  rows 
(numbered  0-22)  and  ?9  columns  (numbered  0-78).  This 
meets  the  standard  24  row  by  80  column  display  with  a 
small  safety  margin.  This  procedure  modifies  the  linear 
representation  used  in  the  program  (x  -  column,  y  -  row) 
to  that  set  of  character  codes  required  by  the  terminal 
to  position  the  cursor.  The  ccnversion  algorithm  to  the 
correct  value  must  be  modified  for  the  specific  terminal, 
the  consio  package  tody  recompiled  and  the  four  control 
packages  (unit rep,  unitrepl,  unitrep2,  unitrep3)  relinked 
prior  to  distribution  and  use. 

—  FPOCirUPI  clear_screen,* 

Sends   the  clear   and  home  character   to   the   terminal. 

Eirect   modification  of  this  procedure  is  not   neccessary 

since   the  clear  screen  character  code  is  declared  at  the 

beginning  of  the  consio  package  body, 
b.   Character  Conversion 

The  output  of  the  program  is  a  message  for 
ready  for  transmission.  Therefore,  only  those  characters 
which  are  compatible  with  both  the  Optical  Character  Reader 
(OCR)  and  five-level  (3AUE0T)  character  codes  are 
acceptable.  Since  most  keyboards  provide  the  128  ASCII 
characters,  some  means  of  limiting  to  these  character  sets 
is  necessary. 
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—  FROCEIURE  baudot_convert (char:  IN  OUT  CHARACTER); 

This  procedure  is  hidden  from  the  program  la  the  consio 
package  body  and  may  he  modified  to  any  desired  character 
set.  Nc  action  is  taken  on  control  characters  (ASCII 
Iecimal  0-31)  with  the  exception  of  ASCII  3-  Control-C, 
which  is  interpeted  to  be  a  user  commanded  program  abort, 
and  ASCII  9,  tab,  whicn  is  converted  to  on  'X  '  character 
to  allow  the  tab  key  to  be  used  in  menu  selection  func- 
tions. All  lower  case  letters  are  automatically  converted 
to  upper  case.  The  set  of  all  allowable  characters  is: 
0122456789  A  BCDIFGEI  J  KLMNO   P 

Q5STUVWXTZ-?   :   $&#'().   ,   J   / 
space 
Any   other   character   input   from   the   keyboard   is 
automatically  converted   to   ASCII  2      and   ignored   in 
processing.   The  operator   is  notified  by  an  aural   tone 
that  the  depressed  key  is  unacceptable. 

c.   Screen  Oriented  Input-Output  Procedures 

The  decision  to  use  a  full  screen  format  and 
menu  selection  requirec  a  complete  range  of  screen  oriented 
subprograms.  The  majority  of  the  subprograms  in  this  class 
can  be  identified  by  the  'xy'  in  the  subprogram  name. 

—  FROCEIU3E  getxy_immediate(x,y:  IN  INTEGER; 

char:  OUT  CHARACTER) ; 

This  procedure  is  used  to  character  buffer  all  data  input 
and   during  menu  selection.   The  cursor  is  positioned   to 
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the   indicated  coordinates  (PROCEDURE  gotoxy)  and  exactly 

one  keyboard  input  is  read  and  converted  to  an  acceptaole 

character,  'char'  (PRCCEEUPE  baudot_convert ) . 

PROCEIUEE  getxy(x,y:  IN  INTEGER; 

temp:  OUT  STRING; 
fieid_length:  IN  INTEGER); 

This   procedure  builds  a   string,   'terrp',   character   by 

character  (FROCEIURE  getxy_immediat e)  ,   operating  on  each 

character  as  received.  All  ASCII  0  characters  are  ignored 

and   on  screen  backspacing  and  deletion  are  allowed.   The 

size   of   the   string   is  automatically   limited   tc 

'f ield_length'  characters.   Keyboard  input  is   terminated 

when   receiving   a  Carriage  return  or  upon   reaching   the 

field  length.  The  string  is  then  stripped  of  any  trailing 

blanks   which  may  have  been  entered.   The  string  is   then 

returned  to  the  calling  subprogram  for  use. 

EUNCTION  rrark(x,y:  INTEGER)  RETURN  30CLEANJ 

This   function   is  used  in  rrenu  selection  areas   where   a 

boolean   value  is  required  by  the  prograrr.   The   function 

accepts   a  keyboard  input  (PROCEDURE  getxy_irrrrediate)  and 

determines  if  it  reets  the  requirements  used  to   indicate 

a   mark.   TRUE  is  returned  if  an  'X'  or  tab  key  has   been 

depressed,   FALSE   is  returned  if  the  carriage  return   or 

space  bar  have  been  depressed.   If  one  cf  these  four  *eys 

was   not   selected   the   input  is  ignored   and   the   user 

notified  by  an  aural  tone  to  reselect . 
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—  FROCEIUEE   putxy(x,y:    IN    INTEGER; 

terrp:    IN    STRING); 

This  procedure  puts  the  contents  of  the  input  variable 
'terrp'  at  the  indicated  coordinates  (PROCEDURE  gotoxy). 

—  PFOCEIURE  clear_field(x,y,len:  IN  INTEGER); 

This  procedure  is  used  to  erase  the  entire  contents  of  a 
data  field  at  the  indicated  coordinates  (PROCEDURE 
gotoxy).  This  applies  only  to  the  terrrinai  display,  not 
the  actual  data  field  variable. 

The  printer  package  supports  the  prograrr 
custorrization  to  a  particular  printer  and  the  setting  of 
several  printed  copy  forrrats. 

a.   Printer  Custorrization 

Since  a  continuous  page  printer  was  used,  only 
printer  enabling/disabling  and  page  ejection  rrechanisrrs  were 
required  to  be  constructed. 

—  PROCEDURE  printer_on;  PROCEDURE  printer_off; 

JANUS/ALA  corrrrunicates  through  the  standard  CP/M-S2 
filenames  for  input/ouput  devices.  The  measures  described 
in  the  rranudl  using  the  LSI:  device  were  followed  [REE. 
9:    p.    Z-5]  . 

—  FROCEDUFE  new_page; 

Although  a  standard  ADA  construct,  this  procedure  was  not 
available  in  the  JANUS/ADA  subset.  It  vdS  simulated  by 
putting  the  form-feed  character  (ASCII  Decimal  12)  10  the 
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CP/M  1ST:   device.   The  page_eject  constant  is  hidden   in 
the  printio  package  body  to  be  easily  rrodifiable. 
b.   Output  Forrrats 

Three  output  forrrats  were  selected  for 
demonstration  purposes:  message  (irsg),  which  simulates  the 
-"ormat  received  during  fleet  broadcasts;  Optical  Cnaracter 
Reader  (ocr),  which  is  used  for  message  preparation,*  text 
(text),  which  is  used  to  prepare  printed  data  not  message 
orien  ted. 

—  TTP1   format  IS  (msg, ocr, text) 

PROCHUB!   set_format (format_type:   IN  format) 

The  various  parameters  for  each  format  are  listed  in 
Table  4-2.  Formats  are  set  either  by  default  or,  where 
applicable,  by  the  operator  through  menu  selection  op- 
tions. The  procedure  controls  the  actual  parameters  and 
is  hidden  within  the  printio  package  body.  It  is  adjust- 
able to  any  format  by  variation  of  the  format  parameters. 

—  PHOCirUHI  put_printer (content :  IN  STRING); 

Cnce  the  format  is  selected  all  printer  directed  output 
is  passed  throgh  this  procedure.  In  addition  to  writing 
to  the  printer  the  proper  format  is  maintained  by  adjus- 
ting header  lines,  line  spacing,  margins  and  page  ejects. 
The  line  count  is  adjusted  at  each  call  to  new_page. 
3.   global  Package  iurglobalj 

The   global   package  provides  the   declarations   of 
global  types,   constants  and  Variables,   the  program   status 
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structure   for   prograrr  module   communication,   general   use 
subprograms  and  user  assistance  subprograms . 
a.   Global  Declarations 

The  package  specification  details  the  types, 
constants  and  variables  which  may  be  accessed  by  all  higher 
levels  of  the  prograrr.  Common  use  temporary  variable 
identifiers  for  the  specific  types  INTEGER,  STRING, 
CHARACTIR,  BOOLEAN  and  FILi  are  listed  here  to  maintain 
uniformity  of  reference  throughout  the  program.  Constant 
characters  are  used  in  case  statements  and  equality 
comparisions  -  letters  are  recognized  by  the  lower  case 
representation  of  the  character  (e.g.  'a'  for  'A')  while 
otter  characters  are  represented  by  plain  english  (e.g. 
'space'  for  ').  Constant  strings  (of  length  one)  are 
recognized  ty  the  '_merk'  suffix  (e.g.  'a_rr<irk'  for  "A")  or 
plain  english  (e.g.  'dash'  for  "-").  String  constants  are 
initialized  in  the  package  body  as  JANUS/ADA  does  not  allow 
the  use  of  aggregates  in  the  package  specification. 

The  eight  designated  program  actions  are  carried 
as  both  a  type  ('action':  draft,  neww ,  print,  etc.)  and  an 
array  of  booleans  ('actionals')  since  JANUS/ADA  does  not 
provide  for  the  writing  to  storage  of  enumeration  types 
(other  than  boolean).  The  ten  program  areas,  consisting  of 
the  eight  DMTHIP  situations,  the  LOCAL  Information  area  and 
the  TTPI  CCfMANDIB  report  section  are  similarly  represented 
('area':  local,  air,  admin,  etc . ;  'area_i s  ' ) . 


b.   Program  Module  Communication 

Since  the  program  is  structured  In  multiple 
modules,  seme  informdtion  passing  is  necessary  to  maintain 
program  control  without  requiring  redundant  user 
interaction.  This  information  is  contained  within  the 
variatole  'program'  whose  structure  is  the  type 
'program_status'.  An  explanation  of  each  component  of 
program  follows. 

—  unit:  TYPE  unit_type  IS 

(ship, subirarine,air_unit , shore, other) 

This  item  is  used  to  distinguish  the  reporting 
requirements  of  certain  data  sets  (e.g.  only  ships  and 
submarines  are  REQUIRED  to  report  their  positions  (POSIT 
set),  only  ships  and  submarines  are  allowed  to  report  the 
physician  status  (MEDIC  set)  ).  This  allows  the  program 
internally  to  required  or  disregard  these  fields-  'Unit' 
is  set  in  PACKAGE  urlocal,  PROCEDURE  process, local_ 
infrequent . 

—  initial_entry:  2C0LEAN 

This  item  enables  the  Sign  Cn  display  screen.  It  is 
reset  in  PACKAGE  unitrep  during  the  initial  execution  of 
the  main  program  and  set  when  the  user  elects  to  quit 
the  system  in  PACKAGE  unitrep,  PROCEDURE  process_action . 

—  ?rint_trailer :    300LEAN 

This  item  is  used  by  PACKAGE  urlocal,  PROCEDURE 
print_msg,   to   determine  if  message  trailing  items  (RMKS 
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and   ICLAS  data  sets)  are  to  te  printed.   This   sequences 

the  proper  printing  order.   It  is  set  in  PACKAGE  unitrep 

after   sign  on  and  reset   in  PACKAGE  unitrep  when  action 

-8-  (quit)  is  selected. 

message_  transmitted :  BOOLEAN 

This   iterr   is   used   by   PACKAGE   urair.    FUNCTION 

print_with_delete  to  determine  when  a  deleted  data  set  is 

required  to  be  printed  (Figure  4-5).  It  is  set  in  PACKAGI 

unitrep,   P?0CEEURE  process_ection   when  a   message   is 

logged  as  transmitted  (action  -5-). 

current_act ion :  action_state 

This  item  communicates  the  proper  action  to  each  program 

module.    It   is   set   in  PACKAGI  unitrep,   Procedure 

choose_acti  on . 

current_area :  area_st<ite 

This   item   is  used  dy  the  various   control  packages   to 

direct   program  flow  only  to  the  user  selected  areas.   It 

is  set  in  PACKAGE  unitrep,  PRCCEDURE  choose_<iredS . 

current_format :  format_state 

This   item   is   set  either  by  default   of   through  user 

selection   in  PACKAGE  unitrep,   PRCCEEURE  choose_action , 

and  maintains  the  proper  format  during  a  print  cycle. 

printing_line:  INTEGER 

This   item  is  set  by  the  variable  linecount  in   PACKAGE 

printio.   It   maintains   the  value  of  the  line  currently 
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being   printed  when  switching  tetween  modules  during   any 

action  nhieh  requires  printed  output. 
--  workfile:  STRING(14) 

This  iteir  holds  the  name  of  the  current  data  structure  on 

which   the   program   is  operating  and  is  set   in   PACKAGI 

unitrep,  PRCC1DURI  process_action. 
The  prograrr  status  inforrration  is  stored  at  the   termination 
of  any  module  and  is  loaded  at  the  beginning  of  execution  of 
any  module  (see  FRCGRAM  CCNTROL  COMPONENTS). 
c.   General  Use  Subprograms 

Subprograms  in  this  grouping  are  used  throughout 
the  program  to  support  other,  more  complicated,  constructs. 

—  PROCIIUEI  border?  provides  the  display  screen  outline 

—  PROCErUEI  process_coirirent(data_set:  IN  STRING; 

comment:  IN  OUT  comment_set ) ; 

This  procedure'  provides  screen  processing  of 
amplification  (Ar'FN)  and  remarks  (HMKS)  data  sets.  The 
content  of  'comrent.set '  is  described  under  PROGRAM  TATA 
COMPONENTS  (urglbl).  Comrrents  are  processed  as  external 
files  in  order  to  reduce  data  storage  requirements.  These 
free  text  files  are  purged  once  a  rressage  has  been  logged 
as  transmitted.  If  a  file  has  been  created  previously, 
the  contents  are  loaded  and  displayed  (Figure  A-5)  . 
Otherwise  a  new  file  for  that  data  set  is  created  and  the 
user  enters  the  free  text  content.  When  the  user  has 
completed   the  initial  entry  of  data,   noted  by   reaching 
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the  maximum  ollcwed  consent  lines  (10)  or  inputing  d 
carriage  return  on  a  blank  line,  the  option  is  presented 
to  line  edit,  erase  or  continue  with  the  program.  Once 
the  user  is  satisfied  with  the  free  text  the  prograrr 
stores  the  content  in  a  file  on  the  A:  disk  with  a 
filenarre  of  'data_set '  and  a  filetype  of  ".A??"  (e.g. 
"POSIT. AfP") .  Remarks  are  processed  as  10  pages  of 
comments  to  allow  1£0  total  l?,nes.  In  situations  where 
rrultiple  data  sets  are  possible  the  variable  'data_set' 
is  modified  at  the  point  of  the  procedure  call  to 
indicate  the  instance  of  the  'data_set'  with  integer 
suffixes  (e.g.  CRIWSTAT  amplification,  'data_set'  :  = 
"CPw'STA12"  where  'l'  indicates  the  first  aircraft  type 
and  '2'      indicates   at   the   -second   location;    AIRAUTE 

amplification ,   'data_set'   :=   "AlPATEl"  where   the   'l' 
indicates  the  first  aircraft  type). 
PPOCIIUPI  print_comment(data_set :  IN  STRING); 

This  procedure  is  used  to  print  the  content  of 
arrplif  ication  sets  only.  The  external  file, 
'data_set '  .AMP  ,  is  located  and  "AMPN/"  is  appended  at 
the  beginning  of  the  first  line.  All  lines  are  printed 
and  the  end  of  data  delimiter  ,"//",  appended  to  the 
last  line.  Although  remarks  are  processed  as  multiple 
page  amplification  sets,  a  special  procedure  must  be  used 
for  printing  as  the  placement  of  the  delimeter  is 
variable  (see  PACKAGE  urlocal,  PROCEDURE  print_msg) . 
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—  JUNCTION  reauired  print  ( changed  1  tern:  BOCIEAN) 

RETURN  30CLEAN 

Eased  on  data  set  printing  requirements  (Figure  4-5), 
this  function  determines  if  a  non-deletable  data  set  is 
to  be  printed. 

d.   User  Assistance  Subprograms 
The   user  assistance  subprograms  notify  the   system 
operator    of    input   errors,    provide    additional    EILF 
information  or  provide  draft  document  information. 

—  FROCEIUFE  errcr( number :  IN  IN1I&ER); 

In  certain  situations  of  illegal  data  entry  or  where 
notificdtion  to  the  user  of  certain  actions  required  to 
be  followed  are  necessary,  error  messages  are  used.  The 
error  number  is  set  at  the  procedure  cali  and  the 
external  EFF.MSG  file  is  accessed.  The  required  'number' 
of  lines  in  the  file  are  searched  and  the  appropriate 
error  rressage  is  dislayed  at  the  bottom  of  the  current 
screen  display  with  an  aural  tone.  The  procedure  waits 
for  a  user  input  before  clearing  the  error  message.  Error 
messages  are  contained  in  Table  4-3. 

—  PROCZIURE  help(data_set :  IN  STRING); 

This  procedure  allows  the  user  to  obtain  upto  seventeen 
lines  of  information  pertaining  to  the  particular  item  at 
the  current  cursor  position.  When  the  user  enters  a 
question  mark  ('?')  at  a  valid  location  the  external 
HELP. TXT    file   is   accessed  a^d      a   search  rrade   for 
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'data_set'.  Cnce  found  the  contents  of  the  file  are 
displayed  until  the  delimiter  (a  single  period  on  a  line) 
is  reached.  The  procedure  terminates  when  the  user  ma£es 
a  keyboard  entry  and  control  is  returned  to  the  calling 
subprogram  at  a  point  allowing  use  of  the  information 
viewed  . 

FROCSlTJRI  view_table(filename:  IN  STRING); 
This  procedure  is  used  in  conjunction  with  the  help 
subprogram  when  the  data  field  item  under  enquiry  is 
contained  in  a  table  supplement  to  the  instruction  for 
which  the  program  is  designed  [Pef.  10:  Tables  £-1  thru 
E-14] .  The  procedure  notifies  the  user  that  that  table 
entries  are  available,  by  message  and  an  aural  tone, 
following  a  HIIF  request.   The  user  rray  elect  to  view  or 

not  7iew  the  table.  If  the  decision  is  to  view,  the  table 
entries  an;  displayed  seventeen  per  screen.  The  user  can 
exit  viewing  at  any  point  or  will  automatically  exit  at 
the  end  of  the  table.  Program  control  returns  at  a  point 
allowing  use  of  the  information. 
PROCIIURE  draft_aid(data_set :  IN  STRING); 
This  procedure  provides  the  user  hard  copy  information  to 
assist  in  the  drafting  of  a  report.  The  information  is 
stored  in  an  external  file,  ERAPT.TXT,  and  is 
automatically  accessed  during  draft  document  preparation. 
The  IPAIT.TXT  file  is  searched  for  'data_set'  and  all 
contents  until  the  delimiter  (a  single  period  on  a   line) 
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are   printed.   A  san-pie  draft,  document  prepared  using  the 

content  of  ERAFT.TXT  is  contained  in  Appendix  A. 

4.   Slility  Package  iurutilj. 

The   utility   package  provides   several   subprograms 

which   are  also  of  general  use  but  which  were  separated  from 

PACKAGE  urglobal  for  their  similarities. 

~  FROCEEUEE  verify _nurrbsr(nuirbi:r_of .digits:  IN  INTEGER; 

terrp  :  IN  OUT  STRING; 
success:  CUT  EOOLEAN ; 
number:  CUT  INTEGER); 

The  necessity  of  string  buffering  the  input  (as  JANUS/AEA 

has    no    exception   handling   capability)   required    a 

capability   to   determine  if  certain  string   inputs  were 

numeric  in  nature  and  if  sc  to  provide  tne  integer  value. 

This   procedure   checks   all   characters   of   the   string 

'temp',   insures   they  are  nurreric  and  then  converts   the 

string   to   an   integer  value  which  is   returned   in   the 

variable  'number'.   If  'terrp'  does  not  represent  a  number 

or   if   the   number  is  not  positive  and  in   range   (0   to 

(10**auirber_of_riigits)-l  )   then  'success'  is   set   EALSE. 

Leading   spaces   within  the  string  are  converted   to   the 

zero  ( 'Z  ' )  character. 

—  FUNCTION  getxy_digits(x,y,number_of _digits  :  INTEGER) 

RETURN  STRING,* 

This   function   is   used  where  the  integer  value   of   the 

number    is   not   immediately   required   and   where   x/y 

addressing  is  prefered.   The  cursor  is  positioned  at   x,y 
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and  a  maximium  of   'nuir'ber_of_digi  ts '  characters  are 

accepted.   Input   is   terminated  on  a  carriage  return  of 

when  reaching  'number_of _digits ' .  Any  trailing  blanks  are 

stripped   and    the   string  is   sent    to   PROCErURZ 

verify_number  for  processing.   If  the  input  is  an  invalid 

nurrter  the  user  is  notified  with  an  error  message  and  the 

sequence   is  repeated  within  the  function.   Th2   function 

terminates  when  a  set  of  numeric  characters   which  rreet 

the  various   tests   is  processed.   That  set   of  numeric 

characters  is  then  returned  as  the  function  value. 

PROCEIUEZ  verify_dtg(dtg:  IN  CUT  STRING? 

success :  CUT  BCCIEAN); 

Irror  checks  'dtg'  for  all  legal  dace-time  groups.   If  an 

invalid  date-time  group  is  received  the  user  is  notified 

by  an  error  message  and  'success'  is  set  to   FALSE.   The 

date-time  group   template,   "ddhhmmZfMm'yy"   is   returned 

after  the  user  clears  the  error  message. 

PHOCEEURE  verify  ldt_long(ldt  long:  IN  CUT  STRING; 

success:  CUT  ECCLIAN  ); 

This  procedure  error  checKS  latitude/longitude  position 
reports.  If  the  entered  'lat_Iong'  is  incorrect  the  user 
is  notified  by  ar.  error  message  and  'success'  is  set  to 
FALSI.  The  position  template,  "ddmmLC-dddmmEC"  is 
returned  when  the  error  message  has  been  cleared. 
JUNCTION  checksum (temp:  STRING)  RETURN  INTEGER; 
This  function  calculates  the  checksum  for  a  string  of 
numeric  digits  and  returns  that  integer  value. 
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—  JUNCTION  zero_pad(number  of  digits:  INTEGER; 

terrp:  STRING)  RETURN  STRING,' 

This    function   adds   character   zeroes   ('0')   to    the 

beginning   of  the  string  'terrp'  if  required  to   fill   the 

string  out  to  'number_of _digit s' .   It  is  used  to  maintain 

numerical  string  variables  of  consistent  field,  widths. 

5-   Test  Package  iurtestj. 

This   package  was  initially  envisioned  as  a  means  of 

automatically   collecting   test  data  on   program   operation. 

This  includes  such  items  as  user  identification,  sign  en  and 

sign  off  times,   program  recognized  error   tabulations,   the 

number   of  help  accesses  required   and  a  method  of  gathering 

user  corrments.   Use  of  this  package  was  discontinued  because 

the    lack   of   JANUS/ADA   random   access   redd ''write    file 

procedures  reouired  separate  external  test  data  files  to   be 

generated   each   time   a  program  module   was   entered.   This 

produced   a   number   of   files   which   frequently    exceeded 

directory   space   during  program  operation   causing   program. 

abort.   Elimination   of   this  package   increased   the   space 

available   in   main  memory  and  allowed  the  use  of   a   larger 

file  buffer  size  which  increased  file  handling  capabilities. 

References   to   the   test  procedures  remain  in   the   program 

listing   and   are  recognized  by  the  characters   " — #"   which 

effectively   comment   out   all   calls   to   the   applicaole 

subprograms  . 
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r.   PROGRAM  DATA  COMPONENTS 

The  prograrr  uses  nested  Ada  record  types  to  define  the 
data  structure.  At  the  lowest  level  the  data  is  structured 
according  to  the  data  set  definitions  [Ref .  10:  pp.  11-5 
thru  11-47].  The  type  identifier  consists  of  the  data  set 
name  and  a  '_set'  suffix  (e.g.  'operation_set ' , 
'medic_set ' ) .  Each  component  of  this  record  represents  a 
data  field  cf  the  data  set.  Eata  sets  which  are  conditional 
(i.e.  reported  only  when  necessary)  are  identified  by  a 
boolean  flag  ('change').  Eata  sets  which  rray  be  deleted  are 
identified  by  an  additional  boolean  flag  ('delete').  If  a 
data  set  can  be  amplified  the  record  contdins  the  component 
'arpn'  which  is  defined  in  PACKAGE  urglbl. 

These  data  sets  are  then  grouped  in  another  record 
according  to  the  UNITREP  situation  to  which  they  apply  (e.g. 
'local_set',  'air_set')  by  the  appropriate  package 
(urlocalA,  uradminB,  urair3).  These  composite  area  sets  are 
finally  grouped  in  the  'unitrep_set '  record  as  declared  in 
PACKAGES  mitrepA  and  unitrep3.  The  identifier  'u'  is  used 
in  both  packages  to  denote  the  unitrep  data  variable.  This 
allows  the  multiple  data  structures  to  be  collapsed  to  a 
single  data  structure  for  Ada  subsets  without  the  JANUS/ADA 
type  limitation. 

1  •  ll§e   2§*I  Data  lurglbll 

The   NES  instructions  allow  the  rrajority  of  NRS  data 
sets  to  be  amplified  by  using  the  free  text  set   'AMPN'.   An 
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amplification  set  consists  of  upto  10  lines  of  text,  69 
characters  per  line.  In  order  to  liirit  the  printed  line 
length  in  a  message  to  69,  the  program  constrains  the  free 
text  lir.e  length  to  62  characters  (data  set  identifiers  and 
delimiters  account  for  the  other  7  characters).  PACKAGE 
urglbl  consists  of  the  declarations  necessary  to  support  the 
'AF.PN'  cata  set.  As  the  actual  text  is  stored  in  an  external 
file  (see  PACKAG!  urglohal,  procedure  process_comment )  the 
type  'comment_set ' ,  consists  of  only  a  flag  ('change')  and  a 
count  of  the  'number_of_lines'  in  the  set.  This  count  is 
used  when  processing  remarks  sets  (which  are  interpeted   as 

upto  10  pages  of  comments. 

< 

2.  local  Information  lata  iurlocalA) 

This  package  defines  these  data  items  necessary  for 
the  construction  of  any  NRS/UNITREP  rressage.  Lata  sets 
include!  in  'local_set'  are  generally  noted  as  mandatory  by 
the  instruction.  In  addition  to  the  data  sets,  type 
'message_set'  contains  information  relevant  to  the 
particular  rressage  (e.g.  date-tirre  group,  precedence, 
classification,  declassification).  The  type  'status_set' 
rraintains  the  items  used  in  the  message  identifier  line 
(MSGIE  or  UNITID)  . 

3.  Administrative  Information  Lata  _(uradmin3j 
PACKAGI   uradminE  contains  the  declarations  for   the 

types   used   in   preparation  of   administrative   information 
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[Ref.  10:  pp. 4-2, 4-3].  These   sets  are   relatively  simple  as 
no  deletions  or  complex  relationships  are  involved. 
4'   Air  Information  Lata  lurairBj 

Aircraft  and  Crews  Status  information  [Ref.  10:  pp. 
6-€t6-?,€-8]  requires  a  much  more  complicated  structure.  The 
user  may  submit  a  variable  number  of  these  data  sets 
depending  on  the  tyre  aircraft  and  also  the  location  of  the 
aircraft.  lecause  of  the  static  nature  of  the  data  structure 
several  design  restrictions  were  required.  In  examining  the 
air  data  sets  it  is  clear  that  the  aircraft  type  is  a 
requirement  of  all.  Therefore  a  set  number  of  aircraft  types 
is  required.  An  arbitrary  value  of  four  (4)  was  selected. 
Three  data  sets  (AIRSTAT,  CRIWSTAT,  RECCN)  require  location 
information.  Again  arbitrarily  a  value  of  four  (4)  was 
selected.  The  location  information  is  a  subcomponent  of  the 
aircraft  type,  therefore  up  to  sixteen  (16)  total  locations 
are  allowed.  The  structure  and  size  of  the  air_set  record  is 
more  clearly  displayed  in  Table  4-4.  The  size  of  the  data 
structure  became  relevant  because  of  the  the  storage 
required  in  main  memory  during  program  execution.  A  rough 
formula  for  determining  the  size  of  the  air  data  structure 
is: 

size     =   1.2   x    (3    +    'max   ac_types'   x 

(27    +    'max_locations  '    x    149)    ) 

>ax_ac_types '   and    'max_locat ions '   are   declared   as   constants 

in    PACKAGE   urairE. 
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5.   Composite  Eata  lunitrepAj  unitrep3l 

PACKAGE  unitrepA  consists  of  only  the  LOCAL 
structure  define  in  PACKAGE  urlocalA.  PACKAGE  unitrepE 
consists  of  both  the  ADMINISTRATIVE  and  AIR  structures  from 
PACKAGES  uradminB  and  urairB  respectively. 

I.   PPOGPA!*  CONTROL  COMPONENTS 

Prograrr  flow  is  directed  according  to  the  actions  and 
dreas  which  are  selected  by  the  operator.  Without  an  overlay 
capability,  as  the  prograrr  size  expanded  it  was  necessary  to 
physically  separate  executable  portions  of  the  prograrr  to 
rerrain  within  rrain  rrerrory  space  limitations  (64K).  The 
program  control  components  are  responsible  for  operator 
selection  of  action,  selection  of  area(s)  when  required, 
direction  of  program  flow  to  the  necessary  modules  and  the 
data  file  manipulations  required  for  support  of  the  selected 
action/area (s ) . 

*•   lli!T§.II  Control  lunitrepj. 

PACKAGE  unitrep  provides  the  program  initial  (sign 
on)  operations,  the  selection  of  program  actions,  the 
necessary  contructs  for  supporting  the  selected  action  and 
the  selection  of  area(s)  when  required. 

a.   Program  Initial  Operations 

Subprograms  falling  into  this  category  are  only 
executed  at  the  beginning  of  the  terminal  session.  The  flag 
'initial_entry '    controls    their   execution. 
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—  FROCILURE  check_required_files; 

This  procedure  checks  to  insure  that  all  main  (disk  drive 
A:)  files  necessary  to  sustain  program  operations  are 
present.  If  a  file  is  hissing  the  prograrr  notifies  the 
operator  as  to  the  filenarre  of  the  required  file  and 
terminates  execution. 

—  FROCIEUBE  sign_on; 

This  procedure  displays  the  HCS  UNITP.IP  SUBSYSTEM  version 
number   and   the   serial  and  transmittal   status   of   the 
report  currently  in  the  workfile  (Figure  A-l ) . 
b .   Action  Evaluation  Subprograms 

As  discussed  in  Chapter  III,  eight  program 
actions  are  permitted.  Figures'  A-2  and  A-3  detail  the  screen 
displays   for   action  selection  and  the  required   additional 

proirpts  respectively. 

—  PROCIIURE  choose_action(action_is:  CUT  action_state); 
This   procedure  is  executed  whenever  control  is  pdssed  to 
PACKAGE  unitrep.   All  actions  are  mutually  exclusive.  The 
appropriate  component  of  'acticn_is'  is  set  to  TRUE. 

—  PROCIIURE  process_action(action_isr  IK   OUT  action_sta te ; 

success:  OUT  BOOLEAN),* 

This  procedure  insures  the  legality  and  proper  sequencing 
of  requested  actions  and  performs  the  preliminary 
operations  such  as  format  setting  and  data  filename 
selection  required  to  support  that  action.  It  consists  of 
a   multiple  IF-ELSIF . . .ELS IF-EISZ-ENE  IF  construct   which 
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evaluates   the   selected   action.   The   output   of   this 

subprogram   Is  used  to  drive  a  similar  construct   in   the 

operative   rrodules  for  processing  the  action  on  the   area 

data.  The  constraints  for  each  action  are: 

—  actionals  (draft ) :  The  drafting  document  may  be 
requested  at  any  time  during  the  report  generation 
cycle.  Draft  information  is  normally  based  on  the  most 
recent  report  transmitted.  However,  if  a  report  is  in 
work  in  the  system  the  operator  may  request  draft 
information  based  on  the  pending  report.  This  opticn  is 
used  to  provide  the  releaser  the  detailed  information 
required  to  evaluate  the  report  with  minimal  reference 
to  the  instruction.  Depending  on  operator  selection  the 
appropriate  data  file  is  determined. 


—  action_is(rodify)  :  Modification  of  lata  is  only 
allowed  for  reports  which  have  not  yet  been  logged  a? 
transmitted.  If  the  report  in  the  wcrkfile  has  been 
transmitted  t.he  user  is  notified  to  select  the  new 
act  ion  . 

—  actica_is (print ) :  The  print  action  may  be  requested 
at  any  time  during  the  report  generation  cycle.  The 
operator  may  request  a  print  of  either  the  pending  or  a 
past  message..  Past  messages  may  be  recalled  by  either 
serial  or  date-time  group.  Eate-time  groups  are  cross 
referenced  to  the  appropriate  serial.  If  a  past 
message,  the  external  disk  data  files  are  checked  to 
insure  they  are  available.  If  they  are  not  the  operator 
is  notified.  Prior  to  printing  a  valid  message  the  user 
is  given  an  opticn  to  select  the  print  format. 

—  action_is ( log)  :  Legging  a  message  as  transmitted  is 
only  allowed  when  the  report  in  the  workfile  has  not 
already  been  logged.  The  user  is  notified  if  there  is 
an  attempt  to  do  this.  When  a  valid  action  the  user  is 
prompted  for  the  transmittal  date-time  group.  This 
date-time  group  is  entered  with  the  report  serial 
number  in  an  external  cross  reference  file  (CRCSSRIF). 
The  new  data  file  name,  3:U\'ITxxx  is  set  based  on  the 
report  serial  for  use  in  filing  the  report  data  on  tne 
disk. 
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—  action_is( erase)  :  The  erase  action  may  only  be 
selected  when  the  report  in  the  workfile  has  not  "  teen 
transmitted.  The  program  erases  the  workfile  by  copying 
the  data  file  of  the  last  transmitted  report.  Therefore 
the  external  data  files  are  checked  to  insure  that 
those  required  are  present.  If  they  are  not,  the 
program  terminates,  notifying  the  operator  which  data 
file  is  required  on  the  B:  disk  drive. 

—  acticn_isf verify)  :  feedback  verification  may  be 
requested  at  any  time.  The  operator  is  prompted  for  the 
verification  serial  and  the  program  searches  the 
external  data  files  for  that  B:UNITxxx  required.  The 
operator  is  notified  if  me  data  file  is  net  present. 

—  action_is [quit ) :  This  action  terminates  the  program 
normally. 

c.   Area  Selection 

For  draft  or  modify  actions  the  program  requires 

the  selection  of  the  appropriate  UNI  TRIP  situation  to  direct 

the   flow  to  the  appropriate  modules(s)  (Figure  A-4) .   Areas 

are   automatically   limited   to   those   implemented   (LOCAL, 

ADMINISTRATIVE,  AIR)  with  a  reselection  capability  provided. 

PRCCITURI  choose_area (area_is :   IN  OUT  area_state)   provides 

the  required  constructs. 

2-   ££dule  Control  1  unitrenlx]^  1 

The   main   body   of   PACKAGE  unitrep   and   PACKAGES 

unitrepl,   unitrep2,   unitrep2   provide  the  program   control 

between   these  four  modules.   Program  flow  is  based   on   the 

relationships   between   the  selected   action,   the   selected 

area(s)  and  the  current  execution  point  of  the  program.   All 

information   is   contained  in  a  program  data   file   (STATUS) 

whose    structure   was   discussed   in   relation   to   PACKAGE 
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urglobal.   The  basic   operations,    other   then    control, 
supported  by  each  package  are: 

—  unitrep:  provides  action  and  area  selection  and  data 
file  definition. 

—  unitrepl:  provides  access  to  all  actions  or.  the  LOCAL 
area  data. 

—  unitrep2:  provides  access  to  all  actions  on 
AIMINISTRATIVE  area  data  and  access  to  ail  actions  on 
A  IE  data  with  the  exception  of  rrodify. 

—  unitrep3:  provides  access  to  the  modification  of  AIR 
area  data. 

The   flow  charts  of  Figures  4-6  thru  4-10  detail  control   of 
prograrr  direction. 

3.   Jile  Handling  ifilerA/3) 

The  filer  packages  provide  for  checks  of  valid 
files,  controlled  program  termination,  workfile  loading  and 
storage  and  program  status  file  loading  and  storage.  The 
major  difference  in  the  files  is  that  fiierA  manipulates 
files  for  the  'A'  data  structure  while  filerP  manipulates 
files  for  the  'B'  data  structure. 
—  JUNCTION  valid_file(filenam.e:  SWING)  RETURN  BOOLEAN; 

This  function  is  used  to  check  external  disk  files  for 
existence  to  avoid  abnormal  program  termination  if  an 
external  file  is  not  available.  If  a  portion  of  the 
'filename'  is  "UNIT",  an  'a'  or  '3'  suffix  will  be 
appended  (to  distinguish  between  A   and  B  lata  files). 
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—  TTP1  reason_code  IS  (normal ,file_error) 

—  PROCILUBI  terminate(reason :  IN  reason_code; 

filenarre  :  IN  STRING); 

The  terminate  procedure  is  used  for  two  reasons:  a  file 
error  or  a  norrral  program  halt.  File  error  terminations 
are  used  only  when  external  files  are  mandatory  to 
continue  program  operation  and  are  not  available.  The 
procedure  provides  a  prompt  which  identifies  the  required 
file  so  it  may  he  loaded  or  copied  to  the  proper  disk. 
Normal  termination  occurs  only  when  the  quit  action  is 
selected. 

—  FRCCErURE  load_file( filename:  IN  STRING); 

—  FROCEIURE  stcre_file(filename:  IN  STRING); 

These  procedures  load/store  the  external  UNITRIP  data 
structure  (UNITxxxA/B)  from/to  secondcry  storage  (disk 
drives)  to/from  main  memory. 

—  PROCEIUR*    loadstatusJ 

—  PROCEIttBE    store_status; 

These  procedures  lead/store  the  current  program  state 
from/to  the  STATUS  disk  file.  Appropriate  statements  are 
executed  to  initialize  all  required  variables  for  proper 
program  operation. 

I.   PROGFAM  OPERATIVE  COMPONENTS 

The  operative  components  of  the  program  are  organized 
according  to  the  basic  UNITREF  situations  as  defined  in 
Chapter  III.  They  are  responsible  for  excecuting  the 
operator   selected  action  for  the  particular  area   data.   To 
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maintain  uniformity,  common  constructs  were  applied  in  the 
processing  of  these  actions.  However,  each  area  also  has 
unique  requirements .  "hese  specific  points  of  interest  will 
be  discussed. 

1.   Condon  Elements, 

There  are  basic  concepts  for  wnich  the 
implementation  is  similar,  if  not  identical,  for  all 
packages.  The  general  interface  to  an  area  package  is 
PlOCIIUPl  process_(area  name).  Within  this  subprogram  only 
those  statements  required  to  support  the  operator  selected 
action  are  executed.  An  IF-ILSIF.  .  .ILSIF-ILSE-EM  IF 
construct,  identical  in  structure  to  that  of  the  program 
control  components,  is  used.  A  summar»y  of  the  these 
operations  follows. 

—  act ion_is ( neww )  :  Besets  all  flags  used  to  indicate  a  data 
set  or  field  has  been  modified,  deletes  from  the  data 
structure  all  iters  tagged  for  deletion  and  resets  the 
content  of  any  data  items  which  are  dependent  on  the 
report  occurence  (e.g.  message  serial,  precedence,  date- 
time  group)  . 

—  action_isf  log)  :  Deletes  any  free  text  f.AivP)  disk  files 
created  during  the  generation  of  the  report. 

—  action_is(print )  ,  act ion_i s(draf t ) ,  act ion_is( verify) : 
for   each  data  set  in  the  area  a  check  is  made,  following 

the   decision  tree  of  Figure  4-5,  to  determine  if  the   data 
set   is  to  be  printed.   The  decision  tree  is  implemented   by 
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three  functions:  PACKAGE  urglobal,  FUNCTION  required.,  prir  t 
is  used  fcr  sets  which  can  net  be  deleted;  PACKAGE  urair. 
JUNCTIONS  print_wi th.de let e  and  print  wo_ delete  are  used  for 
sets  which  rray  be  deleted.  If  the  set  is  tc  be  printei  the 
proper  format  is  provided.  If  amplification  comments  for  the 
set  exist  they  are  printed  immediately  following  the  set 
(PACKAGE  urglobal,  FPCCEEUEE  print, comment] .  When  requested. 
draft  information  is  provided  (PACKAGE  urglobal,  FB0CI21RE 
draft, aid ) . 

Operations   for  actions  'erase'  and  'quit'  are   executed   in 
the  control  packages.  Modification  actions  are  customizei  tc 
the  particular  area  and  are  discussed  next. 
2.   General  Modification  Constructs 

Modification  is  the  only  action  which  requires 
considerable  operator  inputs.  As  tee  desired  output  of  the 
systerr  is  an  error  free  message,  many  of  the  statements  are 
concerned  with  insuring  that  lata  entered  is  valid.  Each 
area  medif if icaticn  section  is  divided  into  cne  or  more 
subprograms  which  process  the  information  fcr  a  specific 
area  display.  The  displays  are  directly  aligned  tc  the  draft 
document  the  system  venerates.  The  common  elements  for  a 
display  modification  subprogram  are: 
—  PBOCIIUPE  ; area/su carea ;_mask; 

This   procedure  generates   the   particular  area/subarea 
screen  display.  This  display  consists  of  all  oata  sets  or 
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information     iterrs    for   the  area/subarea  .      Coiriron   elements 

for  the  screen  display  are: 

lata   Set   Access   Point   [  '(  ) *  ] :   Each   lata   set   or 

information  item  has  an  access  point  to  which  the   cursor 

positions   automatically .   Eata  set  modification  proceeds 

in   sequence  from  the  top  of  the  display  tc   the   Dot  Com. 

The   operator  enters  one  of  a  defined  set  of  access  codes 

(keyboard  characters). 

lata  Set  Name:   This  is  the  plain  language  expansion   for 

the  data  set  identifier  (e.g.   'Pnysician  Status'  for  the 

MiriC  data  set ) . 

lata  Set  Fields:   Each  field  of  the  data  set  is  annotated 

with  its  plain  language  meaning.  The  field  (ray  consist  of 

a   series  of  dashes  (' ... ')  of  the  assigned  maximum 

field  length,  a  template  (e.g.  'ddhhmmZ^'^vy  for  date- 
time  groups)  or  ,for  limited  selections,  a  series  of 
alternate  selection  points  L'(  )'  or  '-']  labeled  with 
the  corresponding  data  field  values.  ---  On  Screen 
Prompts:  An  abbreviated  table  of  the  valid  access  codes 
allowed  for  the  display. 
PROCEIUEI  fill_(area/subarea)  [_masicj  ,' 

This  procedure  fills  in  the  corresponding  area/subarea 
display.  All  data  fields  are  annotated  with  the  current 
content  of  the  data  structure  for  that  data  set. 
Alternate  selection  points  are  marked  as  '(X)'.  Items 
changed  for  the  pending  report  are  rrarked  with  a  '~'  next 
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to  the  access  point.   Items  to  be  reported  as  deleted  are 

marked   with  a  'D'  next  to  the  access  point.   If   a   free 

text   set  (AMPN)  has  "been  created  for  the  data  set  an  'A' 

is  marked  next  to  the  '*'  ('AFFN'  sets  apply  only  to  data 

sets  which  have  been  changed). 

Cnce   the   fill  subprogram  has  been  executed   the   system  is 

ready   to  process  the  operator  modifications  to  tne   current 

data   structure.   The  cursor  automatically  positions  to   the 

access  point  of  the  first  data  set  of  the  display.  Each  data 

set  is  processed  through  a  LOOP  and    enclosed  CASE  construct. 

The   loop  is  labeled  'modify_ (data   set   identifier):'.   The 

program   waits  for  the  operator  to  enter  the  access  code  ar.d 

then  executes  the  statements  required: 

—  space  or  carriage  return:   Access  to  this  data  set  is  not 
desired.  Position  the  cursor  to  the  next  data  set. 

—  'X '  or  tah :  This  code  allows  further  access  to  the  data 
fields  or  information  items  within  the  data  set.  If  the 
access  point  is  for  a  data  set  the  cursor  is  positioned 
to  modify  the  required  data  fields.  Data  field  entries 
are  checked  to  insure  they  properly  correspond  to  the 
data  field  iterrs  (e.g.  numerics  only,  date-time  groups, 
free  text,  valid  tabularized  codes).  Improper  input 
generates  an  error  message.  Errors  are  required  to  be 
corrected  before  proceeding  with  the  rrodif  icat  ion  .  If  the 
access   point   is   for   an  information   item   with   other 


subdivisions,  further  access  is  granted  to  select  the 
components  of  the  iterr  which  are  to  be  rrodified. 
'C':  This  code  allows  access  to  a  data  field  for  change 
purposes.  It  is  used  for  data  sets  whicb  are  components 
of  an  information  item  accessed  by  dn  'X'  which  may  also 
be  deleted.  A  check  is  first  made  to  insure  the  set  has 
not  been  marked  for  deletion.  If  data  change  is  allowed, 
similar  operations  to  insure  correctness  cf  data  input 
are  performed. 

'E':  This  code  marks  a  set  to  be  reported  as  deleted.  A 
check  is  first  made  to  insure  the  set  has  not  been 
changed  as  deletions  apply  only  to  previously  transmitted 
data  sets. 

"A'i  This  code  allows  the  operator  to  reset  a  deletion 
flag  if  the  set  has  been  marked  for  deletion  incorrectly. 
'A':  This  code  allows  the  operator  to  create  a  free  text 
(AMPN)  set  to  provide  amplifying  comments  to  the  data 
set.  As  amplif ication  applies  only  to  a  data  set  which 
has  been  changed  a  check  is  made  to  insure  this. 
'?':  This  code  will  permit  accessing  cf  EEL?  information, 
if  it  exists,  for  the  data  set  through  PACKAGE  urglobal, 
PROCEEUEE  help.  If  a  corresponding  look-up  table  is 
available  for  a  data  field  item  that  option  is  also 
provided  through  PACKAGE  urglobal,  PRCCEEURE  view_table  . 
other  inputs:  All  other  operator  inputs  are  rejected  with 
an  error  message  to  reselect. 
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The  enclosed  loop  structure  for  the  case  statement  allows 
for  multiple  operator  actions  on  the  sarre  data  set  without 
the  necessity  cf  repositioning  the  cursor  manually  (e.g.  a 
HELP  access  '?',  followed  by  a  change  access  'X'  or  'C'  and 
rrodification  of  inforrrat  ion,  followed  by  an  'amplification 
access  'i').  The  cursor  is  positioned  to  the  next  data  set 
access  point  only  when  the  user  has  indicated  that  access  to 
the  current  data  set  is  no  longer  desired  (by  space  or 
carriage  return) . 

When  all  datd  sets  for  the  display  have  been 
sequential!;/  processed  the  operator  is  given  the  option  to 
reselect  the  current  display  (e.g.  if  an  error  has  been 
rrade)  or  to  continue  on  to  the  next  display. 

3«  i^cal  hit. ormaticn  iuilpcai±  yrl5Q°l±l 

Local  information  is  grouped  in  three  displays: 
Infrequently  Changed  Items  (Figure  A-6),  Message  Information 
(Figure  A-7)  and  Miscellaneous  Items  (Figure  A-9).  Within 
the  Miscellaneous  Information  the  Operation  (OPIFJ  and 
Exercise  (IXER)  sets  are  mutually  exclusive.  This  exclusion 
is  enforced  by  an  IF-ELS IF-ILSE-ZNC  IF  construct  to 
automatically  position  the  cursor  to  only  valid  access 
points  depending  on  the  current  data.  Position  (POSIT)  is  an 
exarrple  of  a  set  which  is  partially  dependent  on  unit  type, 
required  by  ships  and  submarines  but  only  when  changed  for 
other   units.   The   IN   operation  on   the   enumeration   type 
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'unit_type'  is  used  to  control  automatic  selection.  An 
additional  check  is  rcade  to  deteririne  if  the  unit  is 
'EXEMPT'  from  reporting  position.  The  Declassification 
(DCIAS)  set  is  dependent  on  rressage  classification.  Again 
the  access  point  is  controlled  by  an  IF  IN  construct. 

4.   Adrrini jtrative  In i2 lotion  iuradrrinj 

The  ADMINISTATIVE  Inforiration  consists  of  a  single 
display  (figure  A-10).  The  Adrrinistrat  i  ve  sets  are  not 
subject  to  deletion.  Within  the  display  only  the  Physician 
Status  (MSriC)  set  is  dependent  (on  unit_type).  Access  to 
selection  is  controlled  "by  by  ar  IE-EISE-END  I?  construct. 
The  unit  activity  code  (ACTIV)  is  cress  checked  [Ref.  10: 
Table  3-el . 

*•   Air  l^iorrrdlicn    (urairn  urairlj.  urair2x  urair3) 

As  opposed  to  the  LOCAL  and  ADMINISTRATIVE 
Situations,  the  AIRCRAFT  and  CREWS  STATUS  data  sets  rray  be 
submitted  a  number  of  different  times  depending  on  the 
aircraft  type  and  location.  Additionally,  they  may  be 
deleted.  The  variable  number  of  sets  was  discussed  earlier 
in  this  chapter  in  relation  to  the  data  structure.  All 
actions  other  than  rrodify  are  processed  in  PACKAGE  urair. 
The  modification  of  air  information  is  accomplished  b-j  the 
other  three  packages.  Three  displays  are  used: 
—  Authorizations  (Figure  A-ll)  details  the  aircraft  type, 
aircraft  and  crews  authorized  and  the  number  of  different 
locations  at  which  the  aircraft  are  deployed. 
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—  Location  (Figure  A-12)  lists  the  locations  at  vhich  the 
type  aircraft  are  deployed. 

—  Status  (Figure  A-13)  lists  the  aircraft,  crews  and 
reconnaissance  capabilities  of  the  particular  type 
aircraft  at  the  selected  location. 

Access  to  d  particular  type  cf  aircraft  listed  on  the 
Authorization  page  is  granted  ty  an  'X'.  A  change  to  the 
aircraft  type  is  permitted  by  the  'C'  access  code  'used  for 
error  correction  only).  The  aircraft  type  is  cross  checked 
[Ref.  10:  Table  B-2] .  Modifications  for  thai  type  aircraft 
are  allowed  to  the  Aircraft  and  Crews  Authorizations  by  a 
'C',  'E'-'R't  and  'A'.  Display  of  the  locations  is  granted 
by  an  'X'.  On  the  location  page  a  pseudonym,  FOCEPLATF,  is 
used  to  denote  the  location  as  reported  in.  the  Position 
(POSIT)  set.  Within  the  Status  ?age  all  status  information 
for  the  location  iray  be  deleted  at  the  location  access  point 
or  iteirs  rray  be  deleted,  changed  or  amplified  individually. 
Component  fields  of  both  the  aircraft  status  (AIRSTAT)  and 
crews  status  (CREWSTAT)  are  sum/total  checked  (Possessed  := 
FrC+PPC+NPC ,  Formed  >=  Ready).  Reconnaissance  Capabilities 
are  cross  checked  [Ref.  10:  Table  3-3].  As  the  entire  recon- 
naissance capability  (RICCN)  set  must  be  reported  whenever 
changed,  individual  data  field  modifif ication  (addition  or 
removal)  is  permitted. 

A   degree   of   flexibility  is  built  into  the   system   by 
using   a   display   format   which  is   based   on   the   maximum 
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aircraft  types/locations  declared  in  the  data  structure 
definition.  This  will  allow  a  maximum  of  seven  aircraft 
types  and  seven  different  locations  for  each  type  without 
the  necessity  of  changing  the  screen  displeiys.  It  should  be 
noted  that  current  memory  size  (64K)  limits  these  values  to 
a  maximum  of  four  and  four  respectively.  However  a  different 
combination  of  types/locations  would  be  permissible  if  the 
present  limitation  (approximately  3K)  for  air  data  was  net 
exceeded  (e.g.  2  types/7  locations,  6  types/2  locations, 
etc. )  . 

G.   MSCllIANICUS 

PACKAGES   initial/,   and   intial3  are  used   to   set   the 
workfile   (UNIT000A,   TJNIT000S),   the   program  status   file 

(STATUS)  and  the  serial/date-time  group  cross  reference  file 
(CPCSS3I?)  for  initial  program  operation.  They  would  net  be 
required  at  the  unit  level  as  these  files  would  be 
distributed  on  the  progrctm  master  disk.  The  status  file  is 
set  for  normal  system  operations.  The  workfile  is  set  as: 

Message  Precedence  -     Priority 

Message  Classification  -  Confidential 

UNITPIF  serial  -         001 

ACTIV  -  OP  (General  Operations) 

MEIIC  -  0N3CARD 

PIPCPG  -  CNO 

fEBIIY  -  VALK 
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All  nurreric  items  are  set  to  zero,  all  character  fields  are 
blank.  On  receipt  the  operator  corrects  these  values  as 
required . 
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V.   CONCLUSIONS 

Limited  testing  of  the  ROS  UMTRIP  SUBSYSTEM  was 
conducted  at  the  Naval  Postgraduate  School.  Test 
participants  were  of  the  mid-level  officer  grades  (0-3/C-4) 
normally  responsible  for  the  drafting  of  the  UNITREP.  The 
test  consisted  of  sirrple  data  entry  frorr  the  drafting  form 
and  real-time  report  generation  during  which  the  test 
participants  used  the  built-in  help  facilities  without 
referencing  the  draft  document.  Seven  simulated  reports  were 
generated  ty  each  participant  during  two  terminal  sessions. 
System  familiarization  •required  approximately  forty  five 
minutes.  Refan-iliarizat  ion  time  was  minimal.  The 
participants  were  required  to  fill  in  the  system-provided 
draft  form  for  the  first  report  after  which  the  drafting  was 
optional.  As  experience  with  the  system  was  gained  the 
participants  tended  more  towards  real-time  report 
generation,  forgoing  use  of  the  draft  document.  Simple  data 
entry  after  the  drafting  of  the  report  required 
approximately  fifteen  minutes.  Real-time  report  generation 
required  approximately  thirty  five  minutes.  No  premature 
terminations  were  observed  during  the  tests. 

Eue  to  program  modularization,  disk  access  time  (during 
which  the  operator  must  wait)  is  sizaole.  Each  module 
requires  approximately  one  minute  to  load  into  main   memory. 
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Thus,  four  minutes  during  each  rrodif  ication  cycle  are 
operator  'dead  time'.  Printing  a  message  requires  two 
minutes?  the  draft  document  requires  five  minutes. 

Several  participant  suggestions  were  incorporated  during 
the  test  period  (e.g.  the  addition  of  the  '*'  to  the  screen 
display  to  note  an  item  change).  Modifications  were  easily 
accomplished  largely  due  to  the  uniformity  used  in  code 
expressions  and  the  localization  of  the  procedures.  No 
attempt  was  made  to  optimize  the  current  UMTRI? 
implementation.  There  remain  items  which,  if  revised,  would 
provide  more  efficient  operation  or  clearer  uniformity  (e.g. 
the  use  of  a  common  table  comparison  procedure).  Using  the 
techniques  developed  in  Chapter  III  it  should  be  possible  to 
implement  the  remainder  of  the  UNITRSP  within  a  short  period 
of  time  and  apply  a  similar  irethodoiogy  to  the  other  MPS 
reports.  However,  the  limitations  of  JAKUS/ADA  (version 
1.4.5)  would  restrict  the  program  to  multiple  dis& 
operations . 

Many  additional  areas  for  increasing  the  system's 
flexibility  and/or  utility  remain  to  be  explored: 
—  The  creation  of  a  module  dedicated  to  the  preparation  of 
non-forrratt ed  messages.  The  module  should  integrate  the 
heading  and  trailing  items  of  a  Joint  Messageform  (IX- 
1?3),  provide  for  a  page  printer,  page  alignment 
procedures   and   incorporate  a  full  screen   text   editor. 
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Portions  of  the  rrodule  should  be  accessible  to  the  ROS 
for  preparation  of  the  AMPN  and  RM5S  free  text  data  sets 
and  for  the  printing  of  the  message. 

Examination  of  alternate  rrethods  of  storing  the  program 
generated  data.  The  use  of  a  data  structure  basei  upon 
static  record  types  is  inflexible.  A  better  method  would 
seerr  to  be  writing  the  data  to  a  disk  file  in  the 
message  format  as  it  appears  on  the  printed  message  copy. 
Examination  of  the  feasibility  of  transfering  the  report 
information  to  the  message  communicat ion  center  via  a 
network  system  or  via  disk  transfer.  Either  medium  is 
capable  of  compatibility  with  communications  equipment.  A 
special  purpose  module  could  ce  developed  for  the  resrage 
center  to  incorporate  items  required  for  broadcast  (e.g. 
prosigns,  serialization,  circuit  instructions,  conversion 
to  transmission  code,  special  formatting  requirements). 
The  necessity  of  punching  a  paper  tape  or  retyping  the 
information  on  a  video  display  terminal  (as  is  the 
current  practice)  would  be  eliminated  as  would  the 
possibility  of  introducing  errors. 

Creation  of  a  master  design  program  to  assist  in  tne 
development  of  programs  of  this  type.  Since  many  of  the 
steps  involved  in  customizing  a  program  for  a  particular 
report  are  redundant,  it  should  be  feasible  to  develop  a 
master  program  to  assist  in  generating  the  necessary 
code.   This  program  would  require  such  basic   information 
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as  the  data  set  identifier,  the  component  fields,  the 
type  and  specifications  of  data  entered  in  each  field 
(e.g.  numeric,  alphanumeric,  limited  selections,  table 
look-up,  field  length)  and  the  more  complex  dependencies 
tetween  data  sets.  Cne  of  the  most  tirre  consuming  aspects 
of  developing  the  UNITSIP  SUBSYSTEM  wds  adjusting  screen 
formats  for  the  access  points,  data  sets  names  and  the 
data  set  components,  and  maintaining  proper  cursor 
positioning  when  executing  fill  and  modification 
subprograms  for  the  particular  display.  An  interactive 
facility  could  he  developed  to  integrate  the  formulation 
of  a  screen  display  with  the  required  system  operations 
on  the  data  set . 

The  UNITHEP  itself  proved  to  te  a  pivotal  message.  It's 
content,  especially  in  the  area  of  Unit  Combat  Readiness 
Assessment,  is  highly  dependent  on  information  available  and 
maintained  by  other  sources  (e.g.  Personnel  -  squadron 
roster,  CFNAVNCTE  1000/2;  rajor  Equipment  -  CASRIPs J 
Aircraft  Status  -  VIDS/MA?  system).  While  it  is  simple 
enough  to  create  a  program  to  check  format  and  valid  data 
type  entry,  to  develop  a  system  to  sift  the  raw  data 
necessary  to  calculate  a  unit's  readiness  is  much  more 
complex.  If  a  desire  of  the  CCBS  program  is  to  remove 
subjective  human  appraisal  from  the  assessent  of  unit 
readiness   it   will  be  necessary  to   integrate   these   other 
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sources  at  the  unit  level  and  determine  the  raw  data  to  be 
used  In  this  calculation.  Such  a  systerr  would  allow  event 
driven  automatic  reporting  but  would  be  extremely 
sophisticated  (and  costly). 

Regardless  of  the  level. of  detail  desired,  if  the  ROS  is 
to  have  widespread  distribution,  hardware  and  software 
corrrronal  ity  will  be  required  to  reduce  life  cycle  costs.  It 
would  not  be  cost  effective  to  maintain  a  software  library 
of  similar  programs  for  each  make  and  irodel  of  microcomputer 
in  the  fleet.  In  addition  to  the  software  support  dspects, 
the  cost  of  the  hardware  and  its  maintenance  could  be 
reduced  through  the  defense  acquisition  process. 

Commercial  microcomputers  may  not  have  long  lifetimes  in 
comparison  to  their  military  counterparts,  but  their  economy 
and  universal  utility  more  than  counterbalances  this.  The 
shorter  service  life  may  in  fact  be  a  benefit  as  commercial 
equipment  will  always  be  at  or  near  the  state  of  the  art 
and  at  a  competitive  price.  Every  effort  should  be  made  to 
procure,  for  each  unit,  a  general  purpose  microcomputer 
system  and  the  software  tools  to  effectively  make  use  of  it. 
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APPENDIX  A 

5 OS  .'JNITREP  OPERATOR  MANUAL 

The  RCS  UNITREF  SUBSYSTEM  provides  the  message  orignator 
a  tool  for  the  drafting,  preparation  and  review  of  UNITREF 
messages.  The  ROS  UNITREF  Operator  Manual  is   subdivided  as: 

I.  EACKGROUND 

II.  GENERAL  INSTALLATION  PROCEDURES 


T  T  T 


I 


GENERAL  PROGRAM  OPERATION 


IV  .   PROGRAM  USAGE 

V.    SUPPORTED  UNITREF  REPORTING  SITUATIONS 
A.  LOCAL  INFORMATION 
E.  ADMINISTRATIVE  STATUS 
C.  AIRCRAFT  AN!  CRE'*S  STATUS 


I.  3ACKGRCUNI 
The  National  Coirirand  Authority  and  the  Joint  Chiefs  of 
Staff  require  large  quantities  of  detailed  information  in 
order  to  Taintain  the  correct  status  of  forces  throughout 
the  world.  Units  are  required  to  submit  certain  reports 
(e.g.  CASBEF,  UNITREF  and  MOVEREP),  normally  via  message,  to 
keep  their  superiors  informed  of  the  organization  location 
and  status.  This  information  is  processed  and  made  available 
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to  necessary  commands  through  the  World  Wide  Military 
Command  and  Control  Systeir  (WWMCCS).  The  Wavy  intends  tc 
consolidate  operational  reports  under  the  proposed 
CPNAVINST  3503.x  series:  Navy  Reporting  Structure  ( NRS ) 
Operational  Reports.  The  instruction  estaolishes 
requirement  s  for  reports,  data  set  formatting  and 
definitions  that  are  compatible  </ith  other  US/ALLIEI 
agencies . 

Message  reports  are  normally  processed  by  a  computer  at 
one  of  four  VW^CCS  sites.  Such  automated  handling  is 
extremely  sensitive  to  strict  formatting  requirements  in 
order  to  correctly  interpet  received  message  data.  Recent 
studies  have  shown  an  increasing  trend  in  ^ormat  and  data 
error  rates  as  a  result  of  stri?ter  formatting  requirements 
in  current  reports.  This  results  in  delays  as  the 
information  is  queued  to  an  operator  for  manual  error 
correction.  Greater  error  rates  may  be  anticipated  wnen  the 
proposed  instruction  is  released  unless  a  means  of  assisting 
the  originator  in  their  preparation  is  employed. 

The  concept  behind  the  Report  Origination  System  (ROS) 
is  to  provide  the  message  originator  a  microcomputer  based 
aid  for  the  preparation  of  highly  formatted  reports. 
Ultimately  the  RCS  SYSTEM  will  integrate  modules  for  all  the 
NRS  reports:  CASREP,  STAEEEEP,  EMSEEF,  UMTEEP,  SUREMOVE  and 
SUEMOVE.  The  ROS  UNITHEP  SUBSYSTEM,  version  1.1,  is  a 
partial   implementation  of   this   concept,   using   the   Ada 
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programming  language,  directed  at  supporting  ONITHEP  report 
submission  of  Administrative  Status  and  Aircraft  and  Crews 
Status  Reports  (CPNAVINST  3£03.£  sections  4  and  6)  .  The 
SUBSTSTIM  is  designed  to  assist  three  levels  in  the  report 
generation  cycle;  the  systerr  operator,  the  ressc^e  drafter 
and  the  rressage  releaser. 

To  assist  the  system  operator  the  program  is  'user 
friendly',  navigating  through  the  report  by  a  combination  of 
screen  prorrpts,  menu  selection  a"1!  error  messages.  The  data 
set  formats  are  presented  in  an  understandable  manner  with 
access  lirrited  to  those  that  apply  for  the  type  message.  All 
information  is  verified  as  it  is  entered,  which  eliminates 
data  inputs  obviously  in  error  (e.g.  alphabetic  characters 
where  numbers  a~e  required,  incorrect  date-time  groups, 
invalid  entry  from  a  table).  The  drafting  document  which  the 
system  provides  is  closely  aligned  to  the  display 
screens.  P.  message  formatted  output  copy  of  the  report  is 
provided  in  addition  to  the  ability  to  reproduce  printed 
copies  of  post  rressdges. 

The  drafting  document  provides  the  drafter  with  a  quick 
rreans  of  determining  what  is  currently  reported,  what  is 
required  tc  be  reported  and  what  the  source  for  that 
inforration  is.  A  'fill  in  the  blank'  forirat  is  used  for 
each  data  item.  The  SUBSYSTEM  provides  the  actual 
formatting.  When  required  to  perforrr  a  feedback  verification 
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of  information  held  "by  the  V'a'MCCS  database,  the  SU3STSTEM 
can  automatically  provide  all  data  sutrritted  as  of  a 
particular  serial  report.  The  drafter  is  provided  on  Line 
'HUP'  information  to  aid  in  real-time  report  preparation  if 
so  desired.  Limited  information  included  in  the  governing 
instruction  (e.g.  look-up  tables,  reporting  requirements)  is 
made  available  on  screen. 

Jor  the  releaser  there  exists  an  option  to  provide  a 
draft  document  which  consists  of  all  data  as  is  currently 
reported  or  that  will  be  reported  with  the  message. 
The  data  is  logically  grouped  with  reporting  requirements 
noted  end  an  explanation  of  any  coded  items  (e.g.  unit 
activity  code,  reconnaissance  capability). 

II.  GENERAL  INSTALLATION  PROCITURES 
The  RCS  UNITREP  SUBSYSTEM,  Version  1.1,  is  designed  to 
run  on  a  Z82/8282  based  8-bit  microcomputer  system  with  641 
of  main  memory  and  dual  single-sided  single-density  floppy 
disk  drives  running  under  ligital  Research's  CP/*  system 
(Version  2.21).  The  current  program  is  customized  for  an 
Altos  Computer  System  ACS  8ee0-l  with  a  IATAMEEIA  ELITE  2502 
keyboard  and  terminal.  A  basic  understanding  of 
microcomputer  system  operation  is  advisable. 

The  following  steps  describe  the  procedures  to  be 
followed  upon  INITIAL  RECEIPT  of  the  program: 

1)   Copy   the  UNITREP  master  disk  to  a  reformatted  disk 
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and  lafcel  it  'UNITREP  MASTER'.  Store  the  raster  disit  in  a 
safe  location  following  norrral  safety  procedures  in  the 
handling  of  floppy  disks. 

2)  As  the  ROS  UNITREP  program  must  run  on  a  CF/M  based 
system,  it  is  necessary  to  copy  your  version  of  CP/M  to  the 
first  two  tracks  of  the  reformed  UNITREP  MASTER  disk  by 
issuing  the  SYSGEN  corrrrand.  It  is  also  necessary  to  copy  the 
basic  Input/Output  System  for  peripheral  control, 
C3I0Se4.CCM,  to  'UNITREP  MASTER'  frcrr  any  existing  disk. 

3)  label  another  reformatted  disk  'UNITREP  PILES  xxx- 
yyy'.  Place  the  serial  number  of  the  UNITREP  you  intend  to 
generate  first  in  the  xxx  slot.  Each  disk  will  hold  appro- 
ximately  25  UNITREP  messages. 

4)  Insert  the  UNITREP  MASTER  disk  in  the  systems  A: 
drive.  Insert  the  UNITREP  FILES  disk  in  the  3:  drive. 

5)  Observe  that  the  required  files  are  on  the  UMTREF 
MASTER  disk  by  typing  the  directory  commanc,  EIR.  The 
reauired  files  are: 


UNITREP. CCM  UNITREP1.COM  UNITREP2.COM    UNITREF3.COM 

UNIT300A  UMT000E  STATUS 

ACTION  INFO  ERRMSG  CROSSREE 

TABLE.  2-2  TAELE.B-3  TAELE.3-6 

ERAET.TXT  HELP. TXT 


The      operator   is    not    required   to   know    the   function   of   each      file 
but      should   be   aware   that      these   files    are   necessary    to      the 
proper   operation   of    the   program. 
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c)  Copy  the  two  files  UNIT000A  and  UNIT000B  to  the 
UNITRE?  FILES  disk  on  the  5:  drive.  The  purpose  of  these 
files  will  he  explained  later.  (This  should  always  be  done 
when  switching  in  a  new  0NITR1P  FILES  disk) 

III.  GENERAL  PROGRAM  OPERATION 

Since  the  final  output  of  the  ROS  UNITEIP  SUBSYSTEM  is  a 
formatted,  hard  copy  message,  only  cnaracters  that  are 
compatible  with  both  Optical  Character  Reader  (OCR)  and 
BAUDOT  (a  message  transmission  code)  are  accepted  from  the 
keyboard.  The  cperdtor  is  automatically  restricted  to  these 
type  of  characters.  If  the  operator  attempts  tc  put  in  any 
unacceptable  characters  an  aural  tone  will  sound.  Lowercase 
letters  are  automatically  converted  to  uppercase. 

Program  operation  is  controlled  through  a  combination  of 
menus  and  screen  'access  points',  fenus  require  the  operator 
to   select  one  of  the  displayed  options.   Access  points   are 

screen  locations  to  which  the  cursor  is  automatically 
positioned  (noted  by  the  symbol  '(  )'  ).  Access  points  act 
as  guards  tc  a  particular  data  set  or  information  item.  A 
set  of  valid  access  codes  (e.g.  'C  to  change,  '?'  for  help) 
corresponds  tc  each  access  point  and  is  displayed  at  the 
bottom  of  the  display.  The  access  codes  determine  the 
operations  required.  If  an  invalid  key  is  selected  the 
operator  is  notified  by  an  aural  tone  and  when  appropriate, 
an  error  message  denoting  the  correct  '/:ey   to  depress. 
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Throughout  the  program  whenever  an  <X>  is  iniicared  the 
'X'  or  the  TAB  key  iray  be  depressed.  Whenever  an  <ENT1R>  is 
indicated  the  CARRIAGE  RETURN  cr  SPACE  BAR  may  be  depressed. 

A  prerrature  A3CPT  of  the  program  is  available  "by 
depressing  the  CONTROL  and  'C'  keys  simultaneously  (CTPL-C). 


«v*  NOTE  *** 
A  user  commanded  acort  will  rrost  likely  result  in  the  loss 
of   all   data  generated  since  the  last  entry  to   the  rrain 
(ACTION)  menu. 

)f  *:  Jje  5?  jjt  s*  j;;  sp  *  ^  S(c  >}t 


5or  Tany  data  iteTs  a  limited  amount  of  on  line  HELP 
information  is  available-  This  is  obtained  by  typing  a  '?' 
at  the  data  set  access  point.  If  EIL?  is  not  avdilaole  an 
aural  tone  will  sound. 

A  brief  discussion  of  the  inner  operations  of  the 
SUESYSTI^  is  required  to  acquaint  the  operator  with  some 
terms  frequently  usee'  in  the  program  displays.  The 
SUBSYSTEM'S  Current  Workfile  are  the  files  UNIT00ZA  and 
UNIT000B.  These  two  files  hold  all  the  inforration  on  the 
unit's  status  as  of  the  current  moment.  Once  a  message  has 
been  prepared  AMD  logged  as  transmitted,  the  SUBSYSTEM 
creates  files  UNITxxxA  and  UNITxxtS  on  the  3:  disk  (UNITRIF 
FILES),  where  xxx  is  the  serial  number  for  that  report.  When 
the  system  is  asked  to  retrieve  old  information  it  will 
search  the  3:  disk  for  the  required  files.  If  they  are  not 
present  the  operator  will  be  notified. 
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IV.  PROGRAM  USAGE 
To  execute  the  UNITREP  program  type  'UNITREP'. 

The  first  screen  to  appear  at  the  start  of  the  terminal 
session  is  the  SIGN  ON  display  (Figure  A-l )  which  gives  the 
version  of  the  program  and  the  status  of  the  current  message 
in  the  vorkfile. 

A.   PROGRAf  ACTIONS 

Following  the  SIGN  CN  display  is  the  ACTION  MENU 
(Figure  A-2).  This  display  offers  the  operator  the  various 
program  options.  The  prompt  area  provides  additional 
information  to  the  operator  to  support  the  requested  action. 
Error  messages  are  displayed  in  the  rressag?  are<=.  The  ACTION 
MENU  will  always  he  redisplayed  with  the  required  action 
has  been  completed.  A  brief  discussion  of  the  purpose  and 
prompts  for  each  of  the  desired  actions  follows. 

l-   Il^2§I§  9MTIIP  Craft  Eocuirent 

This  option  allows  the  operator  tc  prepare  a  draft 
document  for  assistance  in  the  preparation  of  a  UNITREP  or 
for  review  of  the  realeasing  authority.  The  draft  document 
consists  of  all  the  information  as  currently  reported  by  the 
unit,  an  explanation  of  any  coded  entries,  the  fields  and 
lirrited  explanations/sources  for  each  data  set.  The  draft 
document  closely  follows  the  screens  presented  in  the  RCS 
UNITRF?  SYSTEM.   The  draft  document  may  be  used  as  a  working 
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copy  by  marking  the  appropriate  areas  for  change  and  filling 
in  the  corresponding  data  fields. 

The  operator  is  provided  a  prorrpt  (Eigure  A-3a)  if  tne 
current  vorkfile  has  not  been  logged  as  transmitted  (action 
-5-).  The  first  selection  allows  the  operator  to  obtain  the 
draft  copy  for  the  releaser  after  all  data  provided  oy  the 
drafter  has  been  entered.  The  second  selection  permits  the 
creation  of  another  drafting  document  for  the  current 
report.  If  the  current  workfile  has  already  been  transmitted 
the  last  reported  status  as  reflected  in  the  SUBSYSTEM  will 
provide  the  draft  information  without  prompting. 

The:  next  prompt  reminds  the  operator  that  he  Fust  select 
the  Uf  ITREF  SITUATION  for  which  draft  information  is 
required.  As  discussed  in  OPNAVINST  3502.5  paragraph  1.5,  a 
Boriral  UNITREP  message  is  concerned  only  with  a  small  subset 
of  the-:  possible  UNITREP  data  sets.  Therefore  data  sets  are 
•grouped  into  subsets  called  SITUATIONS.  In  addition  to  the 
situations  established  by  the  instruction  (e.g.  Personnel 
Status,  Major  Equipment  Status),  Local  Information  and  Type 
Comander  Feports  areas  have  also  been  identified  to  group 
data  sets.  The  UNITREP  SITUATION  MENU  (Figure  A-4)  is  then 
displayed.  The  operator  selects  those  situations  for  which 
drafting  information  is  desired.  LOCAL  information  (message 
addressees,  classification,  priority,  etc.)  will  always  be 
provided.  All    other  SITUATIONS  must  be  requested. 

A  sample  draft  document  is  shewn  in  enclosure  A-l. 
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2.   Initiate  New  UNITREP 

Once  a  UNITREP  has  been  logged  as  transmitted 
(action  -5-)  or  erased  (action  -€-)  this  selection  Fast  be 
rrade  to  reset  the  current  workfile  for  rrodif ication  (recall 
•that  ALL  UNITRFP  information  for  the  unit  is  rraintained  in 
files  UNIT000A  and  UNIT0003).  Any  attempt  to  modify  (action 
-3-)  a  transmitted  message  raises  an  error  which  notifies  of 
the  proper  sequence  for  continuing. 

3-  Ifiete/^odify/Add  lata  to  the  Fending  UNITREP 

This  option  allows  access  to  the  SITUATION  MENU  and 
then  to  the  data  set  screens.  The  UNITREP  SITUATION  MINU 
(Figure  A-4)  is  first  displayed  and  the  operator  is 
prompted  to  select  those  areas  which  the  pending  message 
will  affect.  The  Local  Information  area  (-0-)  will  always  be 
entered,  regardless  of  whether  or  not  it  was  selected,  on 
the  first  rrodif icaticn  cf  a  new  message.  This  is  to  set  such 
items  as  the  classification  and  declassification.  All  other 
SITUATIONS  must  be  selected  by  the  operator.  The  operator 
rray  continue  to  modify  the  message  by  repeated  selection  of 
action  -2-  until  the  message  has  teen  logged  as 
transmitted  (action  -£-). 

4-  ll±i±±   Message  Format  Hard  Cooy  of  a  UN.ITREP 

This  action  is  selected  when  the  operator  requires 
the  completed  rressage  as  it  is  to  be  formatted  for 
review/transmission,   or  for  recall  of  past  messages. 
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Two  options  are  offered  by  prompt  (Figure  A-3b):  Pending 
or  Cld.  When  an  Old  UNITREP  is  selected  it  will  not  provide 
amplification  (AMPN)  or  remarks  (RMKS)  sets  as  these  free 
text  fields  were  purged  from  the  SUBSYSTEM  for  memory 
storage  reasons  when  the  message  was  logged  as  transmitted 
(action  -£-) . 

The  operator  is  also  given  a  print  format  option  (Figure 
A-3c)  .  OCH  format  gives  19  lines  per  page  double  spaced  with 
a  standard  left  margin  and  iraximum  line  length  of  es 
characters.  Addresses  are  indented  to  tab  25;  Ftf,  TC  and 
I  NFC  are  printed  for  demonstration  purposes.  End  of 
transmission,  'NNNN',  is  entered  dutomatically  at  the  end  of 
the  message.  Standard  Naval  Message  (Fleet  Broadcast)  format 
is  42  lines  per  the  page  single  spaced  and  a  maximum  line 
length  of  69.  Addresses  are  indented  to  tab  8  preceeded  by 
FM,  TC  and  INFO  as  appropriate.  End  of  transmission,  'BT't 
is  entered  where  required. 

5-   Log  Pending  UNITHEP  as  Transmitted 

This  action  is  to  be  selected  cnce  a  message  has 
been  approved  for  transmittal  AN!  RFLFASII3.  Units  assigning 
their  own  date-time  groups  should  insure  that  a  proof  copy 
of  the  message  has  been  obtained  since  logging  a  message  as 
transmitted  purges  all  of  the  amplification  (AMPN)  and 
remarks  (KrKS)  data  sets  from  the  SUBSYSTEM  data  structure. 
A  prompt  (Figure  A-3d)  is  displayed  and  the  operator  enters 
the  date-time  group. 
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Prorrpt   entering  of  the  transmittal  date-time  group  is 

required   as  modification  is  allowed  UNTIL  TBI  USIF.  has 

selected  this  action.   This  could  cause  the  data  for  the 
SUBSISTS!*   to   be  incorrect  if  subsequent   rrodif ica tions 

are  rrade  after  the  actual  transmittal  but  prior  to  the 
logging  as  transmitted. 

if  *3p  atqe *•}: sp * #  ** 


6.   Erase  Pending  Unitrep_ 

This  action  allows  the  operator  to  erase  the  pending 
UNITHFP  and  return  the  SUBSYSTEM  to  the  information  state 
that  existed  as  of  the  last  transmitted  UNITREP.  The 
operator  is  prompted  (Figure  A-3e)  to  ensure  an  erase  has 
been  requested.  Once  a  UNIT3EP  has  been  logged  as 
transmitted  it  may  not  be  erased. 
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?•   ZlfPsI?  ¥§rf Ication  Summary 

When   required   by  higher  authority   to   perform  a 
feedback  verification  (OPNAVINST  3503.5,   paragraph  4.9) 
this    option   allows   the   operator   to   enter   an    as-of 
verification  serial  (Figure  A-3f).  All  data  in  the  SUBSYSTEM 
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as  of  that  serial  number  will  ce  listed  in  message  format  to 
con-pare  with  the  verification  copy.   Future  versions  will 
most  likely  change  this  to  a  date-tiire  group  under  full  NHS. 
a.  §uit 

When  the  operator  has  completed  the  terninal  session 
this  action  is  used  to  terminate  program  execution.  All 
modifications  made  will  he  preserved  in  the  workfile. 
Therefore  an  entire  generation  cycle  (draft,  prepare,  enter, 
review)  need  not  be  completed  in  a  single  setting.  This 
frees  the  microcomputer  system  for  other  uses. 

V.  UMTP.IF  SITUATIONS 
As   described   in   the  proposed   UMTR1P   instruction 
(OPNAVINST   35e3.5   paragraph   1.5)  certain   changes   in  an 
organization's   status  require  a  UNITHIP.   The   RCS   UNITREP 

# 

SUSSYSTIM  is  organized  around  logical  groupings  based  on 
these  changes.  Whenever  the  operator  selects  to  modify 
(action  -2-)  or  draft  (action  -1-)  the  UNITRIP  SITUATION 
screen  (iigure  A-4)  is  displayed.  The  operator  selects  those 
situations  that  are  required.  Once  the  selection  is  complete 
the  program  executes  those  areas. 

lach  situation  cr  area  is  divided  into  one  or  more 
screen  displays.  The  area  and  subarea  are  noted  near  the  top 
of  the  screen.  Each  individual  information  item  or  data  set 
is   displayed   in   plain   english   and   numbered   for 
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identification        purposes.        Modification      to      tiie        current 

information  is  controlled  by  using  access  points,   '(  )',  to 

which   the   cursor  automatically   positions.   The   operator 

enters   an   access   code   (keyboard   character)    and    the 

appropriate   action  is  taken  or  allowed.   Valid  access  codes 

are  displayed  on  each  screen  and  are  included  for  eacn   item 

in  Table  A-l.  A  summary  of  the  valid  access  code  meanings: 

'1/  or  TAB:  grant  access  to  the  data  fields  for 
modification  OB  grant  access  to  additional  sub-access 
points  which  guard  the  actual  datd  fields. 

SPAC1  or  CARRIAGI  RETUHN :  no  access  required.  go  to  next 
access/sub-access  point. 

'C:  allow  access  to  data  field(s)  for  change  purposes. 

'D':  mark  this  set  for  deletion. 

'P.':  restore  a  set  previously  marked  for  deletion. 

'A':  amplification  comments  to  be  created  (Figure  A-5) . 

'?':  E1IF  information  requested. 

any  other  character:  incorrect  input.  operator  notified  by 
an  error  message  and/or  aural  tone. 

All    data   item   modifications   are   brought    to    the 

operator's   attention   by   the  use  of  symbols   next   to   the 

appropriate  access  point  (s)  of  the  display.  When  a  data  iter: 

has  been  changed  it  will  be  marked  with  an  ':?'.   A'hen  a  data 

item  has  teen  tagged  for  deleteticn  it  will  be  marked  with  a 

'L'   (Use   of   the  '?/  access  code   removes   this   'D').   If 

amplification   corrments   have   been  created  an  'A'   will   be 

marked  next  to  the  '*'.  This  allows  the  operator  to  generate 

the   report   over   a  period  of  time  without   the  difficulty 


123 


CU 

yj 

U 

m 

a 

« 

CU 

o 

-o 

u 

c^> 

r: 

o 

:o 

«< 

cu 

00 

m 

^ 

X  X  X  x 

CU 

CJ 

u 

o 

u 

< 

o 

CJ> 

CU 

T3 

O 

o 

l/l 

l/l 

<u 

u 

o 

tt  e-i  « 

«J 

»— 1 1— i  i— t 

■a 

c-t 

£-<  £-•  E-« 

*-t 

w 

i— •  t— i  i— i 

— i 

CO 

^.  -z.  z. 

T3 

>■ 

< 

D3D 
1      1      1 

5^* 

CO  ^ 

1 

•< 

W  tO'/l 

Q 

*-  z:  £: 

ts 

cu 

M 

>»!>> 

TJ 

TJ 

— t 

<-t 

P.  A 

in 

I/) 

— i 

■r-l 

-a 

■o 

a 

G 

•rH 

•r* 

-G  -C 

♦j 

l-> 

<T3 

— « 

a. 
in 

•rH 
T3 


3    3 


^ 


X  X  X  X   X   X  X 


«;  <  <x;  «*J 

x  x  x  x  x 


« 

w 

X 

M 

CO 

\6H 

<*i 

«  «   pi;  i-h  CO 

►-H 

W   1^   1^73   Sd 

o 

p-  x  p-.  o  s: 

o 

o  w  o  a,  « 

D 


<t> 

M 

c 
o 

• 

1-1 

1 

1 

4-J 

-o 

o 

CO 

«*; 

1          o 

£H           •»-< 

H> 

c 
o 

•H 

o 
to 

u 

2       i- 

P- 

•»-l 

-o 

2: 

i— » 

z: 

w       •"« 

—4     O 

1 

4-> 

o 

< 

a 

w 

J3          *J 

<TJ     Pi 

PR           t- 

<0 

•«-l 

^J    c 

CU 

<v 

EH 

i/(U    c 

«-i    0) 

o  </i   O 

o 

v« 

i-4   O 

CU 

♦-» 

&-• 

►— 1 

-J    A   CU 

h  « 

«*;  cu  *-> 

•r-t 

>>^ 

C>4  ^H 

i/l 

fD    C 

V 

ft    >»T3 

OJ 

CO    «/)     X) 

«t-t 

^J    (/) 

O  «J 

•«-( 

COO 

>~ 

hh£hh 

CO    *-> 

CO  •"   c 

a 

^H 

*H     tO 

CO    (0 

u 

•rH  -«h  Jri 

«*; 

z 

OJ 

N   (U  «i 

c 

0) 

U    V 

H-,    5L. 

- 

fcs  ♦-»     fc. 

t-l 

•—>*->*-> 

•J   T3 

i_    t-    C^ 

i-i 

o 

Ul 

O   r-l 

2_  cu 

CU 

f-t  fi     (0 

SL, 

1    1-»  ■<-« 

ui    CU 

1     X3  "H 

«-» 

*H 

<o 

•rH     U 

t     u, 

X 

CU    V)    t 

'J1 

c  c 

(73    CU 

T3    t-i 

u 

c 

— * 

c-    CU 

O 

MM 

EH    O    CU 

»— t 

— <  ^-  — 

— i  Pt, 

►H  «*3  O 

<c 

1— 1 

O 

PL,  M 

»-4 

Oh   p=i 

o 

O    1      1 

1       1 

"     1 

1 

1    1 

*«S    I 

1 

^3 

1 

O    I       1 

Oh  WtO  t 

O  cH 

c\t 

CO  ■<* 

O  rH 

»H 

iHCVi  CO 

HH      1         1 

1       1 

»-i    I 

1 

1      1 

•-«    I 

1 

1   1    1 

124 


c 
o 


OJ 

o 
c 

<b 

o 

Q 
in 

CD 

o 
o 

0) 
x; 

o 
o 


CO 

ft 
ft 
o 

CO 
CO 

w 
o 


CD 

^— ■* 

in 

- 

ft 

• 

P 

>» 

Pi 

»-> 

e- 

m 

in 

(Lt 

OJ 

in 

•tf) 

00 

G 

c 

— « 

t> 

c 

—4 

x: 

x: 

<tl 

o 

o 

ft 

o 

p- 

o« 

o 

\ 

>. 

e-  cv. 

*> 

♦-> 

ft 

ft 

PC 

— - 

pcj 

*  ft 

o 

o 

>£*•>>?» 

* — ' 

o 

ft 

w 

P- 

a 

i-t  a 

<<<<*;<< 

c^> 

«*; 

< 

>• 

c- 

PCt 

■< 

<*!  •< 

X  X  x;  x  x 

X 

o 

o 

X 

X 

ft  o 

O  O 

ir 
(L 
c 


X 

is- 


ft 
CO 

•a; 

•=«; 
ft 


ft 

<q  >  o  ft  ft 

jt  I— i  i— i  cj>  t— i 

£;  Eh  ft  ft  ft 

ft  «*;  z.  ft  >■ 


33 
ft  ft  £-< 

<S  =3    < 

<— i  ft  ft 
.— i  •— •  ft 

<  •=«:  o 


ft 

Eh 

»— 1 

Eh   «aj 

<jc 

<*5    SH 

H«z 

>. 

co  ;*  o 

ct 

KWO 

(V 

t-H    ft    H^l 

k_ 

•<  cj  ft 

fc= 

U.' 


+-; 

c 

»— 

0 

*H 

fC 

4-» 

4-» 

C5    TJ 

T3 

T) 

in  ft  0 

1 

OJ 

if\ 

ft 

OJ 

0) 

3  O  tH 
«->         ft 

CO 

2 

*-> 

XJ 

0 

aj 

• 

$Q 

a 

0    !u)-rH 

O 

u 

0J 

•r-t 

c 

rl 

c 

<U 

<j  a   (- 

(—4 

0 

N 

*J 

c 

1 

21 

<TJ 

ft 

CO    tH     CD 

Eh 

a»  ft 

■H 

T3 

t) 

<S 

ft 

t~t  ft 

cj> 

4-*    =» 

«q 

£*.+-> 

t- 

O 

1 

1/1 

Eh 

S»  O 

C    (h 

C«sJ 

>9    3 

O 

O 

z 

in 

OJ 

1— t 

H-t 

>» 

"0    O  -* 

1— 1 

eh  «*; 

ft 

ft 

0 

1 

4-^ 

■rH 

—4 

^v 

C->  T3 

«-j 

•r*    ft   O 

ft 

«-> 

1— » 

CO 

ft 

1) 

ft 

H 

<C    C 

— 

O    CD     Tj 

C 

4-S    4-J 

Si 

T3 

Eh 

n 

Co 

<n 

n 

<0 

< 

ft    T3 

> 

•«-•  ft  -Q 

ft 

<4-l   ft 

< 

(U 

< 

0 

Eh 

- 

in  c 

tH 

ft 

Eh   fc 

i-* 

in        ^j 

t-> 

13    TJ 

>» 

O 

1-4 

< 

c 

0 

»  0 

ft 

CO    t 

«j 

>»  *    <D 

3 

(h    (-, 

Ul 

O 

O 

♦^ 

tH 

0 

M 

a>  a 

CO 

•— •  0 

'O 

ft  oi   (D 

««; 

1/1 

O    O 

-* 

f— 1 

ft 

01 

<o 

CO 

•^-1 

•r-t 

t-    UJ 

I— I 

2:  0 

«; 

a,  z  w 

I 

Ul 

Sh    t- 

JJ 

ft 

1 

un 

0 

1 

<-^ 

•«; 

0  ft 

ft 

1— 1 

0) 

••-i  *-\ 

- 

ai 

UJ 

0 

03 

2_  1 

1 

1      1      1 

ft 

O 

**  «J 

O 

ft 

ft 

C 

ft 

ft 

O 

1 

1     1 

ft   T-H 

C\J 

tO  T1  lij 

1—1 

c 

>— ( 

O 

)—( 

O 

«H 

C\i  CO 

«*;  i 

I 

1       1       1 

«c 

«c 

"< 

<C 

< 

>~^ 

1 

1    I 

125 


w 

CO 

Ph 
co 

PL, 


CO 

o 


0) 

fc 

03 

C 

i-> 

Ol 

en 

t) 

♦-> 

03 

T3 

1 

M 

I 

W 

2; 

C5 

o 

«=s. 

4— t 

Ph 

Eh 

(h 

o 

O     1 

W 

CO 

2: 

o 

2: 

»— i 

o 

Eh 

•— t 

O 

Eh 

Pw 

< 

CO 

O 

>— I 

CO 

l-H 

*t' 

t— I 

w 

►-3 

«*! 

(X, 

i_ 

z: 

Pn 

«*s 

Ph 

a 

^ 

ca 

z 

«*j 

s 

C_) 

4*4 

« 

Eh 

CO 

3 

£ 

Ph 

>» 

i-3 

4*4 

-d 

w 

Z 

—« 

33 

4—t 

Pi 

to 

Ph 

<H 

O 

4*4 

« 

*H 

1—1 

4^ 

/\ 

£h 

a> 

>» 

i: 

co 

V 

4*4 

•-> 

» 

1 

K 

0) 

ai 

to 

Ph 

c-^ 

<n 

Ol 

u 

> 

OJ 

w 

o 

QJ 

f- 

o 

OJ 

L*4 

4-3 

A 

r>»- 

Oh 

/\ 

O) 

<-> 

4*4 

w 

i£ 

« 

V 

C3 

X3 

EH 

T3 

C 

4— 1 

■> 

£3 

03 

z: 

<D  o 

E=> 

yj 

OJ 

c 

a 

5vD 

co 

03 

UJ 

c 

o 

Xi 

CJ 

03 

Ph 

O 

is 

« 

— 

a 

• 

o 

lD 

♦-> 

Ph 

o 

1 

o 

■*-* 

-aj 

/\ 

o 

OJ 

QJ 

V 

a 

iH 

f-, 

• 

r- 1 

60 

OJ 

H-t 

r-* 

O 

Ph 

c 

*-> 

1-t 

+-» 

u 

c 

a 

- — ■ 

o 

t/l 

03 

o 

£3 

OJ 

o 

o 

«*; 

4-> 

c 

cu 

/\ 

o 

Qi) 

Ph 

hH 

03 

4*4 

*-> 

l0 

Eh 

•«H 

1/1 

Z 

01 

0) 

w 

o 

51 

V 

Ph 

' — ' 

126 


of  remembering  what  has  or  has  net  beer,  changed.  All  symbols 
are  removed  when  a  new  report  is  initiated  with  the 
exception  of  items  which  are  reported  continuously  (e.g. 
OPER  or  EXIB  when  required) . 


***  NOT I  *** 

POS  UNITREP  SUBSYSTEN,   Version  l.l,  implements  only  the 
LOCAL,    ADMINISTRATIVE   and   AIRCRAFT   AND   CREWS   STATUS 
situations.   The   operator  is  notified  if  an  un implemented 
area   has  been  selected.   Taoie  A-2  provides  a  quick   data 
set  to  screen  display  cross  reference. 

*  *?  ap  *  sfe  ap  jjs  jp  ap  *  *  sjc 


A.   LOCAL  INFORMATION 

Local  Information  pertains  to  unit  particular  items. 
This  section  is  subdivided  into  three  (3)  screen  displays. 
Infrequently  Changed  Items,  Message  Information  and 
Miscellaneous.  All  or  part  of  the  information  in  the  Local 
area  will  appear  for  each  message.  A  description  of  each 
display  follows. 

1-   IPCAI  rlNIRECUENTLY  CHANGED  ITEMS-  figure  Arej. 

These   items   are   normally   set  when   tne   ROS   UNITRIP 
SUBSYSTEM   is  initially  received.   After  this  only  item   -4- 
(Eeeder  Report)  will  require  modification. 
-1-  UNIT   TYPE:   Self   explanatory.   Used  to  determine   type 

unique    reporting    requirements    (e.g.    MEDIC    for 

ships/submarines  only). 
-2-   UNIT  IDENTIFICATION:   Used  in  the  creation  of  MSGID   and 

UNITIL  data  sets  (data  field  Message  Originator). 


12? 


Table  A-2.  Lata  Set  -  Screen  Eisplay  Correspondence 


TATA  SF 


SCFSIN 


iTir 


ACTIV 

AIBAUTF 

AIESTAT 

AMPN 

CO!*MANI 

CBIVADTH 

CEItoSTAT 

ICIAS 

EZLETI 

HIE 

i^sric 
ksgii 

CPSR 

POSIT 

EECCN 

RIFCRG 

RMKS 

UN  IT  II 

VIRIPY 


Administrati ve 
Air  (auth) 
Mr  (status) 
ALL 

Administrative 
Air  (auth) 
Air  (status) 
Local  (message) 
Air  (auth)  (status) 
Local  (misc) 
Administrative 
Local  (infrequent) 
Local  (misc) 
Local  (rrisc) 
Air  (status) 
Administrative 
Local  (rrisc) 
Local  (infrequent) 
Administrative 


2  -  Activity  Code 
Aircraft  Authorized 
1  -  Aircraft 
Airplif  i  cat  ion 

1  -  Command  Change 
Crews  Authorized 

2  -  Crews 

4  -  reclassification 
delete  this  item 
lb  -  Ixercise 

3  -  Physician  Status 

4  -  Seeder 

la  -  Operation 
2  -  Position 

-  Seconnaisauce 

-  New  Rep  Cr%* 

-  Reirarks 

-  Feeder 

-  Verification 
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■3-  LAST  SIBIAI:  This  iterr  should  only  be  changed  when  first 
receiving  the  ROS  UNITREP  SUBSYSTEM  to  synchronize  the 
SUPSYSTEM  with  the  unit's  UNITREP  serial  nuirber.  A  two 
line  error  message  warns  the  operator  not  to  change  this 
value  except  for  this  reason.  Three  possible  situations 
dictate  the  procedures  to  be  followed: 

a)  Newly  activated  unit,  first  serial  001:  No  action  is 
required  as  the  SUBSYSTEM  autorrat ically  begins  serial 
numbers  at  001 . 

b)  Reactivated  unit:  Enter  the  serial  number  of  the  last 
UNITEEF  transmitted  by  the  unit  (it  should  have  noted 
deactivation) .  Fill  in  UNITREP  entries  normally. 

c)  Currently  active  unit:  Prior  to  generating  the  unit's 
next  UMTREP  it  is  necessary  to  initialize  the 
SUISYSTEr"  data  structure.  This  is  accomplished  by 
simulating  the  unit's  last  report  as  a  complete 
complement  of  data  set  submissions. 

Enter  the  unit's  last  transmitted  serial  minus  1. 
(e.g.  last  serial  473  -  enter  472).  This  resets  the 
SU3SYSTEM  current  serial  to  that  of  the  last 
transmitted  serial.  CCPPLETEIY  fill  in  all 
UNITREP  SITUATION'S  as  they  existed  as  cf  the  last 
serial.  When  all  entries  have  been  confirmed,  log  the 
message  as  transmitted  (action  -£-)  with  the  last 
serial  number's  date-time  group.  After  Initiating  a 
New  Report  (action  -2-)  the  SU3SYSTEM  and  unit 
serials  will  coincide. 

■4-  MESSAGE   TC  BE  PREPARED  AS  A  EEEIER   REPORT:   This   item 

determines   if  a  message  should  be  prepared  with  a  MSGII 

or   UNITIT   data    set   and,    as    explained    in   OPNAVINST   3503.5 

paragraph     2.5,      depends      on     whether    the      unit      is      the 

releasing      authority     or    if    the   rressage   is   an      input      to 

another  unit  which  will  release  it  in  a  combined  report. 

If  set  to  N  (NO),  a  normal  message  will  be  prepared  with 

the  MSGID  set.  If  set  to  Y  (YES),  All  addresses,  message 
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information  and  the  OPSH  or  IXEH  set  will  be  printed  on 
cover  sheet(s)  for  review  of  the  transmitting  unit.  The 
following  page  will  begin  with  the  UMTII  set  and 
.  contain  the  unit  particular  items.  The  RM£S  and  ECLAS 
sets  will  listed  on  the  last  page. 
2-   £CCAI  r^ISSAGE  INIORMATIfiN-  Higure  Az?j 

This  area  is  concerned  with  message  addresses, 
classification,  declassification  and  priority.  A  maxirum  of 
fifteen  (15)  ACTION  and  fifteen  (IS)  INFO  addressees  are 
processed  ty  the  display  of  Figure  A-8.  HELP  is  available  to 
determine  ACTION  and  IMC  addressees  Dnce  ACTION/INFO  has 
been  selected.  If  a  message  is  classified,  decla  ssif  iccttion 
instructions  are  required  to  continue. 

3.   LCCAL  r^ISCILLANIOUS-  Higure  Arii 

These  data  sets  are  recurrent  for  any  UNITREP   situation 

reported. 

-1-  Operation/Exercise:  This  creates  the  OPER  or  IXEH  set  as 
required.  Only  an  Operation  OR  an  Exercise  can  be  in 
progress.  This  remains  fixed  until  changed  by  a 
subsequent  UNITREP.  NO  amplification  (AfPN)  is  allowed. 

-2-  Position:  This  creates  the  POSIT  set.  If  the  unit  is  a 
ship  cr  submarine,  the  program  automatically  goes  to 
this  field.  All  other  units  rust  select  this  to  indicate 
a  change  in  position.  If  the  position  is  'EXEMPT'  no 
date-tire  group  is  required. 

131 


z: 

co 
>* 
in 
ra 

co 

a, 


« 
o 


*$ 

CO 
CO 

i. 

i 


co 
o 

PS 


OJ 

QJ 

>s^ 

O 

OJ 

♦-» 

03 

CJ 

a  ^h 

t-i 

QJ 

«H 

(-, 

■a  si 

T3 

—> 

O 

<u 

</l 

OJ 

3 

-»-i 

& 

t) 

o 

o 

(-> 

fc 

l— 1 

OJ  P4  P* 

l-H 

&K 

£-1 

Ph 

1 

1 

1 

1 

1 

to 
1 

— 
o 


M 

C 

V 

O 

o 

1-H 

*■» 

♦-> 

*-t 

♦J 

OJ 

<tf 

«J 

c 

(h 

n  c 

03 

ai 

u 

l/>  -»-l    o 

O 

t/1  T3 

*-»    (U 

(U    f\D-«-i   O 

f-t 

03  ■""• 

a»  co 

t/1    *H    ♦->   «M 

«m 

r-t   «M 

u 

l/l    S-.    O    C 

*H 

o  c 

a  ft 

0)O<«!H 

wo 

c  o 

a>  o 

(-. 

i/l 

ED  o 

CO  &•« 

T3  ^ -—.,->. 

<T3 

T3 

f—( 

1    t 

i    I 

<^^^. 

o 

1 

1 

1 

1 

in 
el 
o 


O 

M 
♦J 
t/1 

a 


o 

•r-t 
♦-» 

13 

O 


t/I 

I/) 
03 
•— t 

o 

(U 

« 

I 
<* 


1-3 
o 


V 


J-! 

M 
O 

OJ 

o 

T3 
P- 
i/1 

V. 
/\ 

cn 

6-" 

2: 


o 

QJ 


CO 


T3 


ai 

< 

OJ 

ttf) 
TJ 

vi 

CD 

21 


t/» 

•H 
« 

'•0 

i/i 
V 


u 

o 


PEJ 
I—1 
S-1 


CO 

O 
P4 


I 

■- 
Etfj 


132 


co 

>■> 

co 

CO 

P-. 
« 

EH 


CO 
CO 

o  w 
«  co 

CO 

w 


o 


in 
01 


a 
o 


£2 


o 
u 

o 


n 


o 


C3 


fO 
♦J 

Ol 

XI 

m 


o 


a-. 

»4 

W 

w 

(h 

>» 

o 

■T3 

«n 

r-l 

/\ 

in 

p- 

■rH 

V 

^-t 

•» 

01 

01 

Ol 

(/I 

m 

T3 

i/i 

£* 

Ol 

M* 

O 

-a 

*-» 

< 

/\ 

ot 

W 

M 

"V 

•■ 

in 

0) 

O) 

MJ 

z: 

C    1 

*J    1 

p.. 

~  1 

w 

CJ     1 

PC 

Eh 

o 

t— i 

*-> 

£3 

/\ 

o 

CO 

V 

O 

*■ 

•V 

• 

53 

ao 

c 

i 

T-t 

«*; 

♦-^ 

c 

- — » 

0) 

o 

13 

(-. 

o 

oi 

3 

t-> 

ttf 

o 

«*; 

■»H 

0) 

e>0 

Ph 

ft; 

-0 

w 

in 

£-• 

10 

z 

O) 

w 

2: 

V 

* — 

133 


CO 

>- 
co 
pq 

Oh 

« 


E 


C 
13 

O 
V 

c 

*c 

S-i 

O 

a 
■o 

.— « 


I 

co 

o 

«*; 

(-» 
i— * 

C_3 

CO 

K- I 

2. 
I 


CO 

o 
pa 


13    XJ 

*       »H 

f-  o 
ai  > 
-a  qj 
a  xj 
:=>  o 

c 
o  c 

fH     O 

♦->  *-t 

<T3  *-> 
I-  T3 
CU    (-. 

Pi  o> 
o  ft 
o 
I 

13 

t-H 

I 


cu 
E 

13 

a 


Ol 
1/1 

•r4 

O 

(- 
cu 

K 


>» 

■a 

x> 
a 

ai 

u 

t- 

CJJ 

M 

W 

I 


XJ 
01 

13 

n 

»-• 

--. 

0) 

OJ 
1/1 

^H 

o 

-. 
ai 

\ 
a 
o 


03 

O) 

P. 

o 

I 
o 


>> 

e-«  z: 

«  z: 

z: 

O   E 

E 

in  xJ 

«*!  xj 
-a 
x> 


E 
O   E 

Z  XJ 

O  xJ 

M  XJ 
EH  CJ 

<  p» 

XJ 

XJ 

I* 

o 


6h 

2: 

X 


O    O 


■H  C 

in  o 

0  ^-t 

Oh  ♦-> 

1  O 
CM  O 

I  — 


o 

Ph 

CO 

t— t 

— 
El 


O 


S-, 
13 
E 
Ol 
« 

I 

to 
I 


h-1 

«*; 
o 
o 

1-3 


t-. 

—  o- 


o 


W 

33 

t- 
o 

H-H 
/\ 


P. 

E 

<*; 
o 

,/\ 

■< 


O) 


O 

01 

o 

13 
ft 

in 
\ 
/\ 

« 
MM 

e-« 

a: 
•*• 
v 


o 

Ol 
I—) 
Ol 
CO 

o 
♦J 

£1 

13 
+-> 

V, 

/\ 


13 
Ol 
U 
< 

OJ 
etc 
u 
in 
I/) 
o> 
z: 


T3 

—I 
p 

t/1 
•«-t 

to 

P 

o 

Ol 

rt 

13 


OJ 
CJ 
m 


13 
O 

o 

6-1 


CO 
O 


I 
-a: 

0) 


134 


-3-  REMABIS  :  Rsmarks  are  used  to  amplify  dii  entire  message. 
A  maximum  of  one  hundred  (100)  lines  may  be  entered 
using  the  display  of  Figure  A-5.  Ten  (10)  lines  are 
processed  per  screen. 

E.   ADMINISTRATIVE  SITUATION  (Figure  A-10) 

This   information  relates  to  OPNAVINST  35e3.5  section  4, 

Administrative   Status  Reporting.    Five  data   sets   are 

provided,  all  of  which  may  be  amplified  (AivPN). 

-1-  Corrmand  Change:  (COMMAND  Requires  the  operator  to  enter 
the  new  commander  and  the  effective  date-time  group  of 
the   cofTrand   change. 

-2-  Activity  Crange:  (ACTIV)  Requires  a  two  letter  coae  for 
the  units  current  activity  as  obtained  from  OPNAVINST 
3503.5  Table  3-6.  This  table  is  available  on  screen 
through  the  HELP  facility.  The  operator  input  is  cross 
checked  against  the  table  to  ensure  a  valid  code  has 
been  entered. 

-3-  Physician  Status:  (MEIIC)  Access  to  this  data  set  is 
limited  to  only  units  which  are  ships  or  submarines 
(OPNAVINST  3503.5  paragraph  4.5).  This  is  a  chec*  off 
item  as  the  possibile  entries  are  limited.  The  operator 
enters  an  'X'  at  the  appropriate  access  point.  At  least 
one  choice  must  be  selected. 

-4-  New  Beportirg  ORG:  (REPORG)  The  operator  checks  the 
appropriate  reporting  organization  and  enters  the  ITG. 
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-5-  Feedback  Verification:  (VERIFY)  Tais  set  is  submitted  in 
reply  to  a  feedback  verification  request  (OPNAVINST 
3503.5  paragraph  4.8).  The  operator  selects  the 
appropriate  reply  dependent  on  the  outcome  of  the  report 
verification . 


C.   AIR  SITUATION 

This  information  relates  to  CPNAVINST  3503.5  section  c  - 
Aircraft  and  Crews  Status  Reporting.  Certain  limitations 
were  imposed  in  the  design  of  the  RCS  UMTRIP  SUBSISTS!*  -  d 
unit  may  possess  up  to  four  (4)  different  aircraft  types 
and  deploy  these  aircraft  to  no  mere  then  four  (4)  different 
locations  for  each  type.  If  a  unit  possesses  less  than  four 
(4)  different  aircraft  types,  the  number  of  possible 
locations  can  he  increased  by  specifying  the  possessed 
aircraft  type  up  to  the  maximum  limit  of  four  (4).  Each 
additional  specification  allows  four  (4)  mere  locations. 

The  ECS  UMTREP  AIR  SITUATION  is  subdivided  into  three 
displays:  an  Authorization  Page  ,  <*  Location  Page  and  a 
Status  Vage, 

1-   AUTHORIZATION  iligure  Azlll 

This  display  shows  the  various  Aircraft  Types  a  unit  has 
available,  the  number  of  Aircraft  and  Crews  Authorized  and 
the  number  of  Locations  where  they  are  deployed.  The  cursor 
positions  to  the  ACCESS  point  of  the  Type  unless  the  Type  is 
empty.   In   the   latter   case  entry  is  to   the   first   blank 
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Aircraft  Type  field.  The  accessed/entered  type  is  cross 
checked  against  CPNAVINST '3503.5  Table  3-2.  This  table  is 
available  to  the  user  through  the  HELP  facility.  The  cursor 
next  positions  to  the  Authorized  Aircraft  (AIHAUTH)  and 
Authorized  Crews  (CREVAUTE)  access  points.  The  appropriate 
access  code  is  entered  to  change,  amplify,  delete,  restore 
or  request  HUP.  The  cursor  positions  to  the  Deployed 
Location  access  point.  The  Location  Page  is  displayed  if  an 
'X'  is  entered. 

2.   LOCATION  Higure  Az12) 

The  Location  page  displays  up  to  four  (4)  locations 
at  which  the  aircraft  are  deployed.  The  first  entry  is 
always  naired  EC.VE  PLATE,  a  pseudonym  for  the  parent 
organization  location  reported  in  the  POSIT  set.  On 
rressage  copy  it  is  represented  as  a  hyphen  ('-')  as 
required  ty  CPNAVINST  3503.5.  The  operator  enters  a  new 
location  in  the  first  blank  field  or  selects  which  location 
to  access  for  status  information. 

3-   STATUS  ^Figure  Ar13) 

This  page  displays  the  current  status  of  the 
particular  aircraft  type  at  the  particular  location.  All 
status  information  for  a  given  location  may  be  deleted  by 
entering  a  'D'  at  the  Location  access  point.  Individual 
status  items  may  be  deleted  by  entering  a  'E'  at  the 
appropriate  access  point.  Whenever  status  items  are  marked 
for    deletetion   the   operator   is   prompted   to   modify   a 
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corresponding  status  display,   if  required  (e.g.  Deletion  of 

a   detachment's   status   information   normally   requires  an 

increase  in  the  parent  organization's  nurrber  of  aircraft  and 

crews  possessed)  . 

-1-  Aircraft:  (AIRSTAT)  Full  Mission  Capable/Partial  Mission 
Capable  (PMC/PMC)  are  always  reported  within  tne  AIRSTAT 
set.  A  check  is  made  to  insure  that  Aircraft  Possessed  :: 
IMC  +  PMC  +  NMC  (Not  Mission  Capable).  If  this  set  is 
deleted  the  Reconaissance  Capability  is  assumed  to  have 
been  deleted  also.  Therefore  RECON  will  NOT  be  reported 
as  deleted,  but  will  in  fact  be  purged  from  the  system 
(OPNAVINST  3503.5  section  c  paragraph  8e) . 

-2-  Crews:  (CRIWSTAT)  Crews  Formed  are  not  allowed  to  esceei 
Crews  Heady. 

-3-  Reconnaissance  Capability:  (RICCN)  As  this  set  is 
reported  in  its  entirety  whenever  a  change  has  been 
made,  individual  capability  deletions  and  additions  are 
permitted.  The  operator  is  provided  a  prorrpt  as  to  the 
procedures  to  be  followed.  The  primary  recon  capability 
is  always  entered  first.  Entries  are  checked  against 
OPNAVINST  3503.5  Table  £-3.  The  table  is  also  available 
on  screen  through  the  HILP  facility. 
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Enclosure  A-l 
Sample  ROS  UNITREP  Draft  Document 


ROS  UNITRIP  IRAFT  DATA 
BC-1  BET  2    SIRIAI  345 

CLASSIFY  IN  ACCORDANCE  WITH  CPNAVIKST  5512.1 


14  3 


******  INITIAL  ITEMS  -  LATA  SET  INFORMATION  ****** 
UNITRIP  SITUATION   -  <X>  appropriate  iters 
[X)  -0-  Modify  local  Information 


-1-  Fersonnel  Status 

-2-  Administrative  Status 

-3-  Unit  Combat  Readiness  Assesment 

-4-  Aircraft  and  Crews  Status 

-5-  Major  Equipment  Status 

-6-  Special  Capabilities  Status 

-?-  Increased  lefense  Readiness  Status 

-8-  Reserve  Augmentation  Status 

-9-  lype  Corrrrander  Reports 


INFREQUENTLY  CHANGS!  ITIMS  - 

CHANGE  ONLY  ON  INITIALIZATION  ANE  WEEN  NECESSARY 

f  )  -1-  Unit  Type: 

(  )Ship    (  )Subrcirine    (  )Air    (  )Shcre    (  jCther 


(  )  -2-  Unit  Identification  -  OPNAVINST  3503.1  App .  C 
(  )  -3-  Last  Serial 


(  )    -4-  Message  to  be  Prepared  as  Feeder  (Y/N): 
(UNITID  vice  MSG-IL  data  set) 

If  Feeder  is  set  to  YES   precedence, addresses  and 
classification  will  be  placed  on  the  message  cover 
sheet(s)  for  review  by  the  transmit  ting  unit.  The 
UNITII  set  will  be  used  on  the  first  line  of  the  next 
page.  Bernarks  and  declassification  lines  will  oe  listed 
on  the  final  page. 

If  Feeder  is  set  to  NO  all  message  information  will  occur 
in  sequence  with  the  MSGID  set. 

AMPN  MSOII/UNITIL  (Circle  if  Attached) 
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CA 
EI 


p 

Ft*1     HELSDFPRCN  ONE  IET  THREE 
TO     CINCPACFLT  PEARL  HARBOR  EI 
COMTBIRIILT 

CCMAS'w'WlNGPAC  SAN  EIEGO 
NAVIATACEN  PEARL  HARBOR 
ZEN/EELSUPPRON  ONE 
COMCABAI3WING  FOURTEEN 
I  I  N  T  I  A  L 
(  Classified  ::or  Demonstration  Purposes 
******   MESSAGE  HEATER  -  LATA  SET  INFORMATION' 
(  )  -1-  Addresses 

(  )  Originator 


INFO 

c  c 


N  F 


Only  ) 

np  *^  np  tt^p  *p 


(    )  Action 

(  )  Info 


K  )  -2- 


Classification 

Unclas 
~  Confidential 

Secret 
Tot  Secret 


(  )  -3-  Precedence 
Routine 
Priority 
Immediate 
Flash 


(  )  -4-  reclassification  Instructions 


Additional  Addressees  (Indicate  ACTION  or  INFO) 


14  5 


IIIH/SUMMIB  RAIN// 

******  CPER/IXER  -  DATA  SET  INFORMATION  ****** 

Only  an  Operation  OR  an  Exercise  can  be  underway,  NOT 
BOTE.  To  change  frorr  an  Operation  to  an  Exercise  or 
vice-verse,  first  TERMINATE  tiie  current  Operation  or 
Exercise,  then  initiate  the  new  Operation/Exercise. 

(  )  -la-  Operation  Underway 
j  Operation  Codeword 

(MANDATORY) 

i   

i 

Plan   Originator   and    Numcer 

or  OPTIONAL) 

i 

i 

(  )  -It-  Exercise  Underway 


i 
i 

or 


Exercise  Nickname  (62  characters  max) 


!       [MANDATORY) 

(  )  -lc-  Operation /Exercise  Terminated 


MSGID/UNHPEF/EC-1  DIT  3/345// 

******  MSGID/7NHID  -  DATA  SET  INECRMATION  ****** 

This  data  set  is  set  within  the  program  depending  on  the 
items  noted  on  the  cover  page  under  Feeder. 

The  format  is: 

MSG  ID/UN  HREF/ rressage  originator /serial// 

or 
UNHID/ rressage  originator /serial// 

AMPN  (Circle  if  Attached) 


POS IT/NORTH  ISLAND/2211002OCT82// 

******  POSH  -  DATA  SET  INFORMATION  ****** 

MANDATORY  for  ships/ submarines .  IE  location  is  EXEMPT  then 
no  other  information  is  required.  IF  not  at  a  standard 
location,  LAT/LONG  is  required.  The  DTC-  is  required  for 
any  Location  or  LAT/LONG  when  not  exempt. 

(  )  -2-  Position  -  Recuired  for  ship/sub 

Location  (or  EXEMPT)   or    LAT/LCNG 

ddmmDC-dddmmDC 
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AS-CI   Date-Time  Group 
ddhiiinRZf^Myy 
2 

AMPN  (Circle  if  Attached) 

(  )  -3-  Remarks : 

Pemarks  (FP.KS)  are  used  to  amplify  an  entire  message 
They  are  limited  to  100  lijies  at  most. 


(Additional  attached) 
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CCWANE/ICIfl    2.1.    NEVGUY/211200ZMARS3// 

w»w  .COf^ANI    -   LATA  SET    INIOHKATION    ^^^=»=v? 

BOTH  items  MANDATORY.  Punctation  optional 

(    )        -1-     Corrirand   Change 
CO/OIC 


Effective  DTG  ddhhmmZMMMyy 

_Z 
AMPN  f Circle  if  Attached) 

ACTIV/CS// 

CS  ops  -  Ccirtat  Support 

******    AGTIV  -  TATA  SIT  INFORMATION  ****** 
Valid  ccces  are  contained  in  TABLE  B-6. 

(  )    -2-   Activity  Change         Code 

AMPN  (Circle  if  Attached) 

REPCRG/CINC?ACFLT/201900ZMAR£3// 

******   52PCEG  -  TATA  SZT  INFORMATION  ****** 
Reports  the  NEW  reporting  organization 

(    )        -4-      New   Reporting   ORG  Effective    ITG      ddhhrnrZM^yy 

_L  _ 

(  )C.MC    (  )CINCPACFLT    (  )CINCIANTFIT    (  )  C INCUS NAVEUH 

AMPN  (Circle  if  Attached) 

VERIFY/VALII// 

******  VERIFY  -  EATA  SET  INFORMATION  ****** 

VALir  -  all  data  in  the  NRS  feedback  report  is  CORRECT 
CCRRECTEI  -  the  appropriate  information  has  teen  submitted 

(  )    -5-   Feedback  Verification    (  )  Valid 

(  )  Corrected 
AMPN  (Circle  if  Attached) 
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AIRAUTE/SF-3G/AUTE  :04// 
CREliAUTH/SB-2G/AUTE:04// 

******    AIT?    AUTHORIZATIONS    -    IATA   SI?    INFORMATION    ****** 
Aircraft   Authorized   are   listed  in    the   Weapon   System 

Planning   Document    CPNAVNOTE    13210. 
Crews  Authorized   are    listed   in    the  Unit   Manpower 

Authorization   OPNAVNOTE    1000/2,    M  +  l   column. 

Aircraft  Crews 

I        ACCESS  Authorized  Authorized 

(    )  (    )  __  (    ) 

AMPN-AIRAUTE    (Circle   if   Attached) 
AMPN-CREWAUTE 


AIRSTAT/SF-3G/PCSS :04/-/FMC :02/PMC :01// 
CRE!STAT/SE-3G/FORM:0e/-/REAEY :05// 
RECCN/SE-3G/-/CAKERA/TV// 

******  Pecon  Capability  Definitions  ****** 

CAMEFA:  Hand  Held  Can-era 
TV:  Television 

******   AIP  STATUS  -  LATA  SIT  INFORMATION  ****** 

Valid  EICON  capabilities  are  contained  in  TA3LF  3-3. 

(  )     -1-  Aircrdft  (  )     -2-  Crews 

Possessed    FMC   PMC   NMC  Formed      Ready 


(    )     -3-  Peconaissance  Capability   Primary 


AMPN-AIPSTAT  (Circle  if  Attached) 

AMPN-CREWSTAT 

AMPN-RICON 


DELITE/AIESTAT/SH-3G/P0SS :02/CORAL   SEA/FMC  :02/PMC :Z0// 
DELETE/CRIVISTAT/SH-3G/F0RM  :03/CCRAL   SIA/RIAEY:23  7 

*******   Recon  Capability  Definitions  ****** 
CAMERA:  Hand  Eeld  Camera 
TV:  Television 
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******   AIB  STATUS  -  EATA  SIT  INFORMATION  ****** 

Valid  RKCN  capabilities  are  contained  in  TABLE  B-3 


(  ) 

Possessed 


-1-  Aircraft 
IMC    PMC    NMC 


(  )     -2-  Crews 
Forrred      Peady 


(  ) 


-3-  Peconaissance  Capability   Primary 


AMPN-AIRSTAT  (Circle  if  Attached) 

AMPN-CHIWS1AT 

AMPN-R1CON 
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******    AIH  _  NjW  -  p,ATA  siT  INFCRP-ATICN  ****** 
AUTHORIZATIONS 

Valid  Aircraft  Types  are  contained  in  TABLE  B-2 . 
Aircraft  Authorized  are  listed  in  the  Weapon  Systerr 

Planning  recurrent  OPNAVNOTI  13010. 
Crews  Authorized  are  listed  in  the  Unit  Manpower 
Authorization  CPNAVNCTI  1000/2,  M+l  colurrn. 


I    ACCESS 
(  ) 


Aircraft 
Type 


Aircraft 
Authorized 

(  ) 


Crews 
Authorized 


(  ) 


LOCATION 

(  )   location 


STATUS 

Valid  EICON  capabilities  are  contained  in  TABLE  3-3. 


(  ) 
Possessed 


-1-  Aircraft 
PMC    PMC    NMC 


(  )     -2-  Crews 
Forced      Heady 


(  ) 


_"*_   "D 


Peconaissance  Capability   Primary 


AMPN-AIRAUTE  (Circle  if  Attached) 

AMPN-CR1WAUTE 

AMPN-AIPSTAT 

AMPN-CRIVSTAT 

AMP N-P ICON 
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RPKS/LIl'E  GUAP.L  EETACEM1NT  RITURNII  !HOM  SHORT  CRUISE// 

******  RKKS  _  DATA  SIT  INIORMATICN  ****** 
Change  atove.  Item  -3-  Rerrarks. 


ECLAS/riCL  21  MAP  8?// 


******  rciAS  -  LATA  SZT  INFORMATION  ****** 

The  declassification  line  is  set  in  accordance  with 
CPNAVINST  £512. 1.  It  is  required  for  all  classified 
messages  and  is  set  on  the  cover  page  under  Message 
Header  iteir  -4-. 
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FP  EFLSUFFRCN    ONE    LET    THREE 

TO  CINCPACFLT   PIAHL   HARBOR    HI 

COMTKIRIFLT 

COPASwWINGPAC    SAN    DIEGO    CA 

NAVEATACIN    PIAP.L   EAR£OR    HI 

ZEN/EELSUPPRON   ONE 

INFO       COMCAEAIRWING  fourteen 

CONFIIENTIAL 

(   Classified   for  Demonstration  Purposes   Only   ) 
EZER/SUI^EF    PAIN// 

MSGII/UNITREP/EC-1    PET    3/345// 

CCM^ANr/LCrp  3.F.  NEWGUY/211200ZKAR83// 

AIRSTAT/SH-3G/PCSS  :04/-/FMC  :02/PMC  :01// 

CRETiSTAT/SP-3G/rCR^:0e/-/RIArY  :05// 

EILITE/AIRSTAT/SE-3G/PCSS :02/COfiAL    SEA/F?C : Z2/P^C : 2e// 

DILITE/CRIWSTAT/SH-3G/FORM:03/CORAL   SEA/READY :03// 

RPKS/LIFE   GOARE   DETACHMENT    RETURNEr   FROf    SECRT    CRUISE// 

ECLAS/EECL    21    MAR    37// 

NNNN 
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APPENDIX  3 
JANUS/ACA  LIBRARY  MCEULIS 

This  appendix  provides  the  definitions  of  the 
sjbprcgrams  frorr  the  JANUS/ALA  library  packages  (io,  util, 
strlib,  chainlib)  used  in  the  RCS  UNITREF  SUBSISTS. 


Package  IC  Is 

—  The  I/O  package  for  JANUS  V.  1.4.5 

—  last  Modified   10/13/82 


--  Copyright  1982   RE  Software,  F.C.  Box  1512,  Madison 
--  WI   53701.   Permission  is  hereby  given  to   distribute 
—  Cbject  Code  produced  frorr  these  liberies. 


Type   File_^ode   Is 

( Nc_Ac cess ,Read_ Only ,Write_Only  ,?.ead_A:rite) ; 

ICresult    :    Integer;    —   The    result    of    the    IC   operation 

Procedure   Cpen(Fyle    :    In    Out    File;    Name    :    In   String; 

Mode  :  In  File_Mode); 

—  Open  the  file  name  and  give  it  the  mode  mode 

Procedure  Create(Fyle  :  In  Cut  File;  Name  :  In  String; 

Mode  :  In  File_.vcde); 

—  Create  the  file  name  and  give  it  the  mode  mode 

Procedure  relete(Name  :  In  String); 

—  Delete  the  file  name 

Procedure  Close(Fyle  :  In  Cut  File); 

—  Close  the  file  fyle 

Function  Name(Fyle  :  In  File)  Return  String; 

—  Return  the  name  of  the  Cpen  file 

Function  Is_open(Fyle  :  In  File)  Return  Boolean; 

—  Is  the  file  fyle  open? 
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Junction  Get_Line( Jyle  :  In  File)  Return  String; 

—  Get  a  line  from  the  file  fyle 

Procedure  Fut_Ee3n' Fyle  :  In  File;  val  :  In  Integer); 

—  Write  the  integer  in  hexidecirral  (no  special  forrrat) 

Function  Ind  of  file(fyle  :  In  File)  Return  Boolean; 

—  Fnd  of  File  Reached  (in  a  text  file)? 

Function  KF(fyle  :  In  File)  Return  Boolean; 

—  Fnd  of  File  Reached  (in  a  tinary  file)? 

Function  lisk  fullCfyle  :  In  File)  Return  Boolean; 

—  Is  the  Disk  full  ? 

Function  Ind  of_Line(fyle  :  In  File)  Return  Ecolean; 

—  Fnd  of  Line  Reached? 

Fnd  10 t 


1  CP 

X  w  w 


With  Jlib62; 
Package  Util  Is 

—  Spec  for  the  package  util 

—  Last  modifed  9/22/82 

—  Contains  the  utility  routines,  ani  the  "basic  file 

—  handling  routines 

—  Copyright  1962   RR  Software,  P.O.  Box  1512.  fadisor. 

—  VI  £3701.  Permission  is  nereby  given  tc  distribute 

—  Ccject  Code  produced  from  these  libraries. 


Use  Jlitse;  —  So  the  file  definitions  are  available 

Procedure  Frr_Exit; 

Procedure  Halt; 

Junction  Fi  (val  :  Integer)  Return  Byte; 

Function  Lo  (val  :  Integer)  Return  3yte; 

Function  Memavail  Return  Integer; 

Function   tfaxavail   Return    Integer; 

Function  Ccmmand_Line  Return  String; 

—  Returns  the  command  line 

—  Default  File  Procedures 

Function  FCcnvert (Fyle  :  In  rile)  Return  File_ptr; 
Procedure  FFConvert (Fyle_ot r  :  In  Flle_?tr» 

Fyle  :  Cut  File) ; 

—  Convert   to  and    froir  the  type  file  to   the   type 

—  file_ptr.   For  system  use  only,  Not  to  be  used  in 

—  user  programs. 

Function  S tandard_Input  Return  File; 

—  Returns  the  Initial  default  system  input  file 

Function  Standard_Output  Return  File; 

—  Returns  the  initial  default  system  output  file 

Function  Current_Input  Return  File; 

—  Returns  the  current  default  input  file 

Function  Current_Output  Return  File; 

—  Returns  the  current  default  output  file 

Procedure  Set _Input (Fyle  :  In  File); 

—  Set  the  current  default  input  file  to  fyle 

Procedure  Set_Output (Fyle  :  In  File); 

—  Set  the  current  default  output  file  to  fyle 

Ind  Util; 
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Package  Strlib  Is 

—  String  Handling  Package   Specification 

—  Last  Modified  6/   3/82 


—  Copyright  1982   RR  Software,   P.O.   Box  1512,  Madison 

—  WI   £3701.   Permission  is  hereby  given  to   distribute 

—  Object  Code  produced  from  these  libraries. 


Subtype  Mstring  Is  String(255); 

—  Maximum  string  length 
Subtype  Strlndex  Is  Integer  Range   0..255J 

—  Maximum  string  indices 

Function  length  (str  :  In  Mstrlng)  Return  Integer; 

—  Return  the  length  of  the  string 

Function  Remove  (str  :  In  Mstring?  pos, size  :  In  Strlndex) 

Return  Mstring; 

—  Remove  size  characters  from  str  <at  pos 

Function  Insert  ( source, dest  :  In  MString; 

pos  :  In  Strlndex)  Return  MString; 

—  Insert  source  into  dest  at  po*s 

Function  Extract  (str  :  In  Mstring?  pos, size  :  In  Strlndex) 

Return  M string? 

—  Extract  size  characters  fror  str  at  pos 

Function  Position  (pattern, str  :  Mstrlng)  Return  Integer? 

—  Return  the  position  of  the  first  occurence  of  pattern 

—  in  str,  or  z    if  there  is  none 

Function  char_to_str  (char  :  character)  Return  String? 

—  Convert  a  character  into  a  string  of  length  1 

Function  str_to_int  (str  :  Mstring)  Return  Integer? 

—  Convert  a  string  into  an  integer 

Function    int_to_str    (int    :    Integer)    Return   Mstring? 

—  Convert  an  integer  into  a  string 

Fnd  Strlib? 
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Package  Chainlib  Is 

—  The  program  chaining  and  ccilling  library 

—  Last  modified  9/  S/82 

—  Copyright  1982   PR  Software,   P.O.   Box  1512,  Madison 

—  VI   537?1.   Permission  is  hereby  given  to   distribute 

—  Object  Code  produced  from  these  libraries. 

Procedure  Chain(Str  :  In  String); 

—  Chains  a  program,  saving  the  data  segment 

—  Note:   The   Jlib80   library  must  be  the  same   for 

—  both   the  chaining  and  chained  programs  for   tnis 

—  routine  to  work 

Procedure   Simple_Chain( St r    :    In    String); 

—  Chains  a  program,  destroying  the  data  segment 

Procedure  Frog_Call(Str  :  In  String); 

—  Calls  a  program  (Not  Implemented) 

Procedure  Prog_Peturn; 

—  Returns  from  a  called  program  (Not  Implemented) 

End  Chainlit; 
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APPENDIX  C 

?cs_  UNITREP  COMPUTER  LISTING 

This   appendix  provides  the  computer  listing  cf  the   ROS 

UNITPIP   SUBSYSTEM.   The   listing   is   organized   to   follow 

the   structure   of   Chapter   IV   (Implementation): 

3asic  Prograrr  Support  Components 
consio 
printio 
urglobal 
urutil 
urtest 

Program  lata  Components 
urgl ol 
urlocalA 
uradminB 
urairB 
unitrepA 
uni trepS 

Prograrr  Control  Corrponents 
uni  trep~ 
unitrepl 
uni trep2 
unitrep3 
filerA 
filerB 

Prograrr    Operative    Corrponents 
urlocal 
urlocall 
uradrrin 
urair 
urairl 
urair2 
urair3 

Miscellaneous 

initialA 
initials 
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PACKAGE   consio    IS 

—  This  package  provides   console    screen  oriented 

—  i/o   procedures    for   a    Edtarredia   Elite   2500 

—  terminal 

bell:    CONSTANT    :=   CHARACTER 'VAI  (?) ;         —  Aural    beep 
carriage    return:    CONSTANT    :=    CHARACTER 'VAL (13 ) ; 
tab:    CONSTANT    :=   CHARACTER  'VAL (9 ) J 

PROCEDURE   getxy_iinrediate(x,y  :    IN    INTEGER; 

char:    CUT    CHARACTER ) J 

—  Positions    the   cursor   at    screen   position   x,y   and 

—  waits    for   exactly   one    character    to    be    input. 

—  Converts    to  3AUE0T/CCE   only   characters 

PROCEIUR5.   getxy(x,y:    IN    INTEGER; 

terrp:    CUT   STRING; 
field_length:    IN    INTEGER); 

—  This   procedure   positions    the   cursor   at    screen 

—  position   x,y   reads    the   input,    ten-p      for  a    iraxiiruir 

—  of    fie;ld_length   characters,    and   converts    to 

—  BAUDOT/OCR    characters    if    required. 

PROCEEURI    putxy(x,y:    IN    INTEGER;    terrp:    IN    STRING); 

— ■   Positions    the   cursor   at    screen   position    x,y   and 

—  writes   the   input,    temp,    at   this   position. 

PROCEDURE  clea."_screen; 

—  Clears  the  console  display. 

JUNCTION  Tark(:rx,yy:  IN  INTEGER)  RETURN  BOOLEAN; 

—  Checks  for  an  <X>'tac  cr  carriage  return! space 

—  at  the  x/y  coordinates 

PROCICUH1  clear_field(x,y,len:  IN  INTEGER); 

—  Clears  the  screen  field  of  length  len  at  x,y 

EN!  ccnsio; 
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WITH  strlib  ,io,utii;  —  JANUS  library  packages 
PACKAGE  EOEY  consio  IS 

—  This  package  provides  console  screen  oriented 

—  i/o  procedures  for  Eatamedia  Elite  2520. 

—  rust  be  tailored  to  the  particular  system. 

—  terminal  dependent  constants 
position  cursor:  CONSTANT  :=  CFARACTER'VAL (12  ); 
clear:  CONSTANT  :=  CEARACTER  'VAL(30 ) ; 

rubout:  CONSTANT  :=  CEARACTER 'VAL( 127) ; 
screen_backspace:  CONSTANT  :=  CEARACTER 'VAL (8 ) ; 

FROCErURE  gctoxy(x,y:  IN  INTEGER)  IS 

—  This  procedure  is  modified  for  the  screen  of  a 

--  TATArEriA  ELITE  2500  terminal  .  It  must  be  changed 

—  as    required    for   each    new    terminal 


xx, yy: 

integer; 

BEGIN 

CASE  x 

IS 

VEEN 

0.  .31  =>  xx  :=  x  +96; 

WEEN 

32.  .63  =>  xx  :=  x  +  22; 

WEEN 

64.  .78  =>  xx  :=  x  -  32; 

WEEN 

CTEERS  =>  PUT("lnvalid  x 

xx  :=  se; 

coordinate  ' ); 


EN!  case; 


CASE  y  IS 

WEEN  0. .22  =>  yy  :=  y  +  96; 

WEEN  CTEEES  =>  PUT ( "invalid  y  coordinate"); 

yy  :=  se; 
en i  case; 

—  set  addressing  mode  and  coordinates  for  xy 

—  terminal  addressing 
PUT (posit ion  cursor) ; 

PUT( CHARACTER  'VAL(xx) ) ; 
PUT(CEABACTER'VAL(yy)  )', 
ENE  gotoxy; 

PROCEEURE  baudot_convert(  char:  IN  CUT  CEARACTER)  IS 
USE  utii;    —  Fait 

—  Takes  char  and  converts  to  le^al  3AUIOT/OCR 

—  character.  IE  lower  case,  capitalizes.  If 

—  illegal  converts  to  null  and  puts  out  an  aural 

—  tone 
BEGIN 

CASE  char  IS 

—  no  action  on  these  control  characters 
WEEN  CEAPACTER'VAL(0)  j  CEARACTER 'VAL (2 )  J 
CEARACTEE'VAL(4) .. CEARACTER 'VAL (8) ! 
CHARACTER 'VAL  (10).  .CHAHACTEF. 'VAL  (31 )  ! 
CEARACTER 'VAL (127)  =>  NULL; 
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—  abort    and   reboot    on    control-c 
WHIN   CEARACTER'VAL(3)    =>   clear_screen ; 

PUT("User    Corrrranded   Abort    ..."); 
Halt; 

—  allow   tab    'VAl(9)    to   function   as   a   rrark 
VEEN    CHARACTER'VAL(S)    =>    char    :=    'X'; 

—  allowable   EAUIOT   characters 

'.VEIN    'e'..'S'    !     'A'..'Z'    !     '-'    !'?'!':'! 
'$'    !    '&'    !    '#'    |    '"{'('    i    ')'    |    \  '    j 
»iii/i  i  =  >    MJ  L  L  i 

— *   capitalize   lower   case 
WEIN    'a'..'z'   »> 

char    :=   CHARACTER 'VAL(    CHARACTER 'PCS (char )    -32); 

—  convert    all    others    tc   null   and    notify 

—  user   by   the   bell 

WHIN   OTHERS    =>   char    :=    CHARACTER'VAL  (0 )  ,*    PUT  (bell) ; 

ini  case; 

ENL    raudc t_convert ; 

PROCEDURE   £;etxy_ixrrediate(x,y :    IN    INTEGER; 

char:    CUT    CEARACTER)    IS 
CTSE    5  oi  —   Open, Close 

—  gets    exactly   one   character   frorr:    screen   position 

—  x,y   and   converts    to    3AUI0T/0CR 
fyle:   FILE? 

BEGIN 

Open  ( fyle  ,MOD:"fRead_Only);      —  JANUS  keyboard 

potoxy(x,y) ; 

GET (fyle, char); 

CLOSE (fyle); 

ba-idot    convert  (chctr) ; 

?U;!(char); 
EM   ,^etxy_irrrrediate ; 


PROCEDURE   getxy(x,y:    IN    INTEGER; 

terro  :   OUT    STRING; 
fieid_length:    IN    INTEGER)    IS 
USE    strlibj  —  Length, Extract ,Char_to    Str 

—  This   procedure   positions    the   cursor    at    screen 

—  position   x,y   reads    the   input,    terrp   for   a   irdxirruir 

—  of    field_length   characters,    and    converts    to 

—  EAULOTOCR   characters   if    required.    Manipulation 

—  for  character   deletion   allowed. 

key:    CHARACTER; 
xnext:    INTEGER    :=   x; 
BEGIN 

terrp    :=     "; 

LOOP 

getxy_irrrrediate(xnext  ,y  ,key)  ; 
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EXIT  WEEN  key  =  carriage_returr.;   —  no  more  input 
I J  frey  =  rufcout  AND  xnext  >  x  THEN 

FUT( screen_baek -pace ) ; 

FUT('-');      —  erase  screen  character 

temp  :=  Extract  ( ternr  ,  1 , length  (temp)-l ) ; 
— remove  from' string 

xnext  :=  xrex:~i; 
ELSIE  key  -  rubout  and  xnext  =  x  TEEN 

FUT(bell); 
IIS  I?  key  =  CEARACTER'VAKa)  THEN 

NULL;  —  lllegdl  chcracter 
ELSE 

temp  :=  teffsp  &  Char_ to_Str (key ) ; 

xnext  :=  xnext  H ; 

EXIT  WEEN  xnext  >  field  length  +  x  -  i; 
INI  IE; 
ENI  lccp; 

—  strir  trailing  blanks 
EOR  1  IN  REVERSE  i . .Length ( temp)  LCCP 
HIT  WEEN  temp(i)  /=  '  '; 
IE  temp(i)  =  '  '  TEEN 

temp  :=  Extract (temp, 1, i-1) ; 
INI  if; 

ENI  ICOP? 
5NI  getxy; 


FROCEIURZ  putxy(x,y:  IN  INTEGER;  temp:  IN  STRING)  IS 

—  Positions  the  cursor  dt  screen  position  xty  and 

—  writes  the  input,  1;emp,  at  this  position. 
BEGIN 

gotoxy(x,y) ; 
PUT ( temp): 
ENI  putxyj 

PBOCEDOP1  clear_screen  is 

—  Clears  the  console  screen 
BEGIN 

PUT(clear); 
ENI  clear  screen; 


5UNCTICN  mark(xx,yy:  IN  INTEGER)  RETURN  BOOLEAN  IS 

—  used  in  menu  selection  areas  where  a  boolean 

—  value  is  required  by  the  program. 
key:  CEARACTERJ 

3EGIN 
LOOP 

getxy_immediate(xx,yy  ,key ); 
II  key  =  'I'  THEN 
RETURN  TRUE; 


1  a*z 


IISIF  key  =  tab  THEN 

BITUBN  TRUE; 
IISIF  key  =  carriage__return  THEN 

BITUBN  FALSI; 
ELSIF  key  =  '  '  THEN 

RETURN  FALSE; 
ELSE 

FUT(bell) ; 

ene  if; 
eni  lcop; 

FNE  rrark; 

PROCEEURE  clear_field(x,y,len:  IN  INTEGEE)  IS 

—  clears  screen  data  fields  for  len  characters 
BEGIN 

FCR  i  IN  0.  .len-1  LOOP 
putxy(x+i ,y,"-"); 

eni  lcop; 

ENI  clear_fleld; 
INI  consio; 
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PACKAGE  printio  IS 

—  Provides  interfdce  to  the  printer 

line_count:  INTEGER; 

—  format  parameters 
max_lines_in_page,nriax_line_  length, 

line "spacing  ,header_l in es: INTEGER ; 

margin, end_trans:  STRING; 
printer:  FILE? 

PROCEDURE  printer_on; 
PROCEDURE  printer_off; 

PROCETURI  NEW_PAGE; 

—  page  eject 

TYPE   format    IS    (msg,ocr  1 1  ext )  ; 
TYPE   forrrat_state    IS    ARRAY 

(format    RANGE   msg..text)    OF   BOOLEAN; 
format_is:    f  ormeit_state> 

PROCEDURE    set_f orrrat  ( forrrat_type :    IN   forrcat); 

—  sets  page  formatting 

PROCEDURE  put_printer(content :  IN  STRING); 

—  prints  the  content 

END   printic; 
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WITH   strlito.io;  — JANUS/AEA  libraries 

PACKAGE   ECEY   printio    IS 

—   Provides    interface   to    the   printer 


page 


—  for   Teletype   Corp  rodel   40  printer 
_eject:    CONSTANT    :=    CSAFACTEE    VAL(12 ) ; 


FBOCEEUHE   printer_on    IS 
USI   io;  --   Cpen 

—  JANUS/AEA   Drinter   is    1ST: 
BEGIN 

Open (printer, "1ST:" ,Wri te_Cnly ); 
EM   printer_on; 

PROCEEUEI  printer_off  IS 
USE  io;      —  CICSE 
3EGIN 

CLCSE(printer) ; 
INI  printer_off; 

PEOCEEUEE  NEW_PAGE  IS 

—  page  eject.  Can  te  elirinated  with  AEA 

—  supporting  the  NEW  PAGE  procedure 
BEGIN 

PUT (printer, pa ge_eject); 
line  count  :=  1J 
ENE  NEW  PAGE; 


PPOCEEUEE    set_forir>at  (forirat_type:    IM   format)    IS 
—   sets   page   formatting 


:=  false; 
:=  false; 
:=  false; 

=  rrsg    TEEN 

r 
i 

=  69; 


BEGIN 

forrrat_is  (irsg) 
forma  t_is(  ocr) 
f  orirdt~is(text 
IE   forrrat_type 

forn;at_is(Tsg)    :=  TRUE? 

n"dx_lines_ia_p<ige    :=   42; 

rrax_line_length    :  = 

line_spacing  :=  1 

header_lines  :=  9 

trargin    :  = 

end    trans    :=   "3T" 
ELSIE    forrrat_type   =   ocr   TEEN 

fcrirat_is(ocr)    :=   TEUE; 

max_lines_in_page    :=    19» 

!tax~line_length    :=   69; 

line_spacing  :=  2 

header_iines  :=  6 

margin  := 

end  trans  :=  "NNNN 
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IIS1  —   forrrat_type  =   text 

format_is(text )    :=   TRUE; 

rrax_lines_in_page    :=    £5; 

rrax_line_length    :=   S0 ; 

line_spacing  :=  l; 

header_lines  :=  6; 

margin  :=   "» 

end_trans  :=    J 
INI  if; 
ENI  set  format; 


FROCIIURE  put_printer(content :  IN  STRING)  IS 
US  I  strlib;         —  Length, Extract 

—  urints  the  content 
buffer:  STRING; 

BEC-IN 

buffer  :=  content; 

—  liirit    line   length   according    to   forrrat 
IF   Length(buffer)    >   max_line_length   THEN 

buffer  :=  Extract (buffer, l7max_line_length) ; 

Ini  ie; 

buffer  :=  margin  &  buffer; 

—  print  header 

IF  line_count  =  1  TEEN 

ECR  i  IN  1.. header  lines  LOOP 
NEW_LINE(printerT; 

ENE  iocp; 
INI  ie; 

—  print  line 
:3UT(printer, buffer) ; 

—  line  spacing 

FOR  i  IN  1.  .line_spacing  LCCP 
NIW_LINI(printer ) J 

ent  loop; 

line_count    :=   line_count   +   l; 

—  page_eject 

IE  line -count  >  max  lines  in  page  TEEN 

nex_page; 
eni  ie; 

ENI  put_printer; 


ENI  printio; 
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WITH  printio  , 
consio , 
urgltl ; 
PACEAGI  urglobal  IS 
USE  printio  , 
consi  c , 
urglti; 


—  for   format    in  program    status 
■ —    for    carriage_return 

—  for   comrrent_set /proces  s_coix.rrent 


—  global   vcTiabl.es 
fyle:    fill, 
key:    CHARACTER? 


—  single  key  read 


constant  single  Characters 


7' 

CONSTANT  : 

..  'T' 

h: 

CONSTANT 

:=  'H' 

e : 

CONSTANT  : 

0   ^a  0 

d: 

CONSTANT 

:=  '5' 

x:  CONSTANT  :=  I 

n:  CONSTANT  :=  'N 

c:  CONSTANT  t=  'C 

a:  CONSTANT  :=  'A 

r:  CONSTANT  :  =  'B 

space:  CONSTANT  :=  '  ';  ques:  CONSTANT  :=  '?'; 

no_input:  CONSTANT  :=  carriage_return ; 

file  buffer, buffer  :  STRING;   —  file/keyboard  buffers 
blankln,dashln:  STRING(80);   --  screen  lines 

—    strings    of    length    1 
dash, blank td_iKark,n_irar k,r_nrark  ,x_irark,y_irark, 

a_mark,star','nuLl  string:   STPING; 


success ♦reselects  300IEAN; 
number:  iNTTGIRi 


—  general  booleans 
--  general  numbers 


--  global  action  data 

TTPE  action  IS  (draft ,nevv, modify, print , 

log,  erase, verify, quit) ; 
TTPE  aetion_state  IS  ARRAY  (action  RANGE  draft.. quit) 

CE  xCCLEANJ 
action_is:  action_state J 

—  globdl  areas 

TYPE  areas  IS  (pers  , admin  , combat , air .equip ,specap, 

defer,  se  ,  reserve  ,  ty com ,  local ) ; 
TYPE  area  state  IS  ARRAY  (areas  RANGE  pers.. local) 

OE  EC CLEAN; 
area_is:  area_state; 

TYPE  unit_type  IS  ( ship , subma rine  ,ai r_unit  .shore  .other ) ; 
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—  prograrr   status    structure   used    to   corrrrunicate 

—  between   the  program   modules 
TYPE  program_status    IS 

reccbe 

unit:  unit_type; 
initial_entry :  BOOLEAN; 
print_trailer:  BCCIIANJ 
message_transmitted  :  300LE/.N? 
current_action  :  aetion^statej 
current_area :  area_state; 
current_f ormat :  forma t  state? 
printing_line:  INTEGER! 
workfile:  STRING(14)J 
ENI  RECCRP; 

program  :program_stdtus; 


PROCETURE    border,* 

—  screen  out  lire 

PROCEEURE  prccess_comment  (data_ set  :  IN  STRING; 

comment:  IN  CUT  commen t_set ) ; 

—  processes  free  text  ( Ar'FN.  }  ,VKS !  data  sets 

PROCETURE  print_comment-(ddta__set :  IN  STRING)? 

—  prints  amplification  (AMPN)  data  sets 

PROCETURE  error(number:  IN  INTEGER); 

—  Provides  console  error  mes  -dge<> 

PROCETURE  helu(data  set:  IN  STRING); 

—  Provides  RCS  UNITREP  HELP  information 

FROCETUPS  view  table( filename:  IN  STRING); 

—  Provides  user  with  the  option  to  examine  valid 

—  table  entries  from  0PNA7INST  35503.5 

EUNCTION   required  print (changed  item:   300LEAN) 

RETURN    BOOLEAN; 

—  determines    if   a   given   data    set    is    to   be   printed 

—  for   the    required    report 

PROCEEURE    draft  _aid(dcita_set:    IN    STRING); 

—  provides   assistance    in    form   of   a   draft    document 

—  gets   the   draft    information    for   data_set 

ENT  urglotalj 


let 


WITH  io,strlib,       —  JANUS/ALA  libraries 
consio  ,printio , 
— #       urtest,  —  in  procedure  error/help 

urglti; 
PACKAGE  EOIY  urglobal  IS 
USE  consio, 
urglti; 

—  global  variables  initialization  performed  here  as 

—  JANUS/ADA  cannot  initialize  structured  variables. 

—  Would  be  accomulished  in  specification  in  full 

—  ATA. 

PROCEEURE    border    IS 

—  draws    the   standard    border 
BEGIN 

clear_screen; 
putxy (20,0, 

"R  C  S       U  N   I  T  P  E  P         subsystem'*); 
putxy(0, 2, dashln) ; 
putxy (0,21, dashln) ; 
ENE   border; 

PROCEEURE   process_comment(ddtd_set :    IN   STRING; 

comrrent:    IN   OUT   cotrirent_set )    IS 
USE    strlibj  — Extract 

USE   io;  — Open, CLOSE, Create, Delete, GI?_LINI 

—  processes   dll   comment    sets    10   lines/time 

content:    ARRAY    (1.  .irax_coirire3t)    CF 

STBING(rrax_iine_le:igth:  ; 
slo:    CONSTANT    :=   5;  --screen   line   offset 

PROCEIURE  commentmask  IS 

USE  strlib;        —  Extract 

—  draws    the    corrrent    screen 
BEGIN 

border; 

IE  Extract (ddtd_set  ,1,4)  =  "RMKS"  THIN 
putxy(0, 3, "REMARKS  SECTION  -  PAGE 
&  Extract (data_set  ,5  ,1 ))  ; 
ELSE  —  comment  is  rerrarks 

putxy(0, 3, "AMPLIFICATION  SECTICN  -    S  data_set); 
ENE  if"; 

ECR  line_number  IN   1 .  .max_comment  LOOP 
putxy( £ , line_number  +  slo, 

Extract (dashln ,1 ,max_line_length) ) ; 
ENE  LCCP; 
ENI  commentmask; 
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PPOCEIURE  fill_commentmask  IS 
BEGIN 

corrrrentmask; 

FOR   line_number    IN    1 .  .comment  .nurrber_of   lines   LOO? 
putxy(5,line_number   +   slo , content (line   number)); 
INI  loop; 

ENE    fill_commentmask; 

BEGIN 

—  read  in  existing  data 
IF  comment  .charge  THEN 

Cpen(fyle ,ddtd_set     &   " .APP" ,Read_Only) ; 

FCP    line_nurrber    IN    1.  .  comment. nurber_of_lines    LOOP 

content ( line_number)    :=   GET_LINE( fyle  ) ; 
ENE   LCCPJ 
POP    line_nurrber   IN    comment  .number_of_lines+l .  . 

max  comment  LOOP 

content  (line  number  )  :=  null_string>* 
ENE  iocp; 
CLCSE(fyle); 
INI  ie; 

—  process    corrirent   data 
IE   NOT   comment .change    TEEN 

corrirent  .number_of_l  ines    :-  0J 
corrrrentmask; 

FOR  line_number  IN  1 . ,max_commen t  LCOF 
content-(line_number )  :=  null_string; 
ENE  LOCP; 

EOP  line_number  IN  1.  .rrax_coirment  LCOP 
getxy_immediate(5  ,1  ine_number+slo  ,key  ) ; 
EXIT  WEEN  key  =  no_input  CP  key  =  space; 
comment .change  :=  TRUE; 

getxyfe  ,line_number  +  slo  .content (line_number) ,61) ; 
content ( line_number )  :=  Char_t o_Str (key  ) 

&  content ( line_number) J 
comment  .number_of_lines  :=  line  number; 
INE  loop; 
ENI  IE; 

comment_page:  LOOP 
f ill_commentmdSk; 
putxy(Z,20,'t<ENTIR>  to  continue,  <^C>  to  change,  '  & 

<E>  to  erase,  <?>  for  help";,* 
getxy_immedidte(?3,20 ,key ) ; 
CASE  key  IS 

NHEN   no_input    ,'    space   =•    EXIT; 
WFEN    c    => 

putxy (0 ,20 ,blankln )  ; 

putxy  (0  ,20  ,"Po  si  tion    cursor    to    line    to    change 
&"and    type    over   -   ENTIRE   LINE    MOST   BE   CHANGED"); 
FOR   line_number    IN    1. .    max_comment    LOOP 
getxy_imrrediate  (5  ,line_number    +   slo, key); 
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IF   key   =  no_input   OB   key    =   space   TEEN 
putxy  (5f  line_nurrter  +  slo  , 

content (1  in e_nurter) ) ; 
ELSE 

clear   f  ield  (6,line_nurrber    +   slo,61)> 
getxyTe, line_numter   +   slo, buf f er, ei ) ; 
content  (line_nurrber)    :=   Char_to_S  tr  (key ) 

&   buffer,* 
IF   line_nuirber   >    corrrrent  .nuirfcero  f_lines 

THEN 
corrrent  .nurrber    cf_lines    :=   line_nurrber; 
IMC  if; 
INI  if; 
ENE   LCOP; 
foEEN   e    =>   cop"P'ent  .change    :=   FAL5FJ 

FOE    line_ number    IN    1.  .rrax_corrrrem    LOO? 
content (line_number)    :=   null   string; 
ENE  loop; 
1*EEN   ques   =>   help ("AMPN/1MKS" )  J 

fill  _corTTrentm  ask; 
toEEN   OTHERS    =>    error(c);  —    incorrect    inout 

EM  case; 

II    content(l)    =   null_string    TEEN 
cormrent  .change    :=  FALSI; 
corrrrent  .nurrber_of_lines    :=  0; 
INI  if; 
ENL    LCOP    corrrrent_page; 

—   Write   data    to    file   if   required 
EFLITE(data_set    &   ".AMP"); 
IF   co  rrment.  change   THEN 

Create(fyletdatd_set   &    " . AMP" ,W rite_0nly) ; 
ICE    line_nurrber    IN    1 .  .corrrrent .  nurrber_of_lines    LCOP 
FUT( fyle .content (line  number  5 ) ; 
NEW_LINE(fyle); 
ENL    LOCP; 
CLOSE(fyle); 
ENI   ii; 
ENL   prccess_corrrrent ; 

FEOCELURI    print_corrrrent(data_set:    IN    STRING)    IS 
USE   printio;  — put_printer 

USE    io;  — Open, GIT_LINE,ENE_OF_FILF, CLOSE 

—  print   any  amplif ication/rerrarlcs    lines    required 

—  for   old  messages   -    .cirrp   files   cire   purged 

—  when   rressage   is    logged   as    transmitted 
EEGIN 

Cpen(fyle,data_set    &    ". AMI" , Read_Cnly ) ; 
file_buffer    :=   "AMPN/"   &  GET_LINE( fyle ) ; 
LCCP 

IF   ENL   OF_FILE(fyle)    TEEN 

file'buffer    :=   file    buffer  &    '  //    ; 


(  c 


put  printer(file_buff er); 
ClCSI(fyle); 

exit; 
iisi 

put  printer  (file  "buffer) ; 

file  buffer  :=  GET_LI NE( fyle) ; 
END  if; 
ine  loop; 

ENL  print  coirrrent; 


PROCIUUHI  error  ( nurrber  :  IN  INTEGER)  IS 
USE  icstrlioi 

— #  USE  urtest;  --  for  test_file 

—  processes  error  messages 

index;  INTEGER? 

message';  STRING  (60); 

BEGIN 

Open'  fyle/'ERRNSG"  ,Read_Only  ) ; 

index  :=  l; 

LCO? 

ires  sage    :=■•  (Jet  Line  (fyle)  J 

IE   number   =   index   THEN 

sxit; 

ILSII   End__of_File(fyle)    TEEN 

[ressage    :-    Int_to_Str  (nurrber )    & 

"  :    Not    found    in  EFR^SG"; 
EXIT; 

IISI 

index    :=   index   +   l; 

IHl    if; 

end  ice?; 

Close(fyle)  ; 
PUT (tell); 

TDUtxy(0,22,"***   ERROR   "); 
putxy(10t22firessage  S,   ".    <INTIR>"); 

ge txy_imrrediate( 78,22, key  ) ; 

— #    rerrove   next    2   frorr    production 
-#  FUT( test   file, "ERROR    "&   message); 

-#  New_Line(test_file) ; 

putxy(0,22, blankln); 
INI    error; 


i?; 


PROCEEURE  help( data  set :  IN  STHING)  IS 

USE  io;     — Cpen,CIOSI»GIT  LINI 
■#    USE  urtest;     —  testj?lle 

—  provides  Help  information  for  a  particular  data 

—  iterr 

BEGIN 

"border? 

DUtxy(0,3,"EELP  INIORMATION  -   S.  data  set); 

NO  line; 

Op en( fyle, "HELP. TXT", Read _Cnly) ; 
LOOP 

file  buffer  :=  GIT_LINE(fyle) ; 

I?  file_buffer  -  data  set  THEN 

LCOP 

file_buffer    :=   SIT_LIM  (fyle  ) ; 

EXIT  WEEN   file_buffer   =    ".";  —  deliroeter 

PUT(file_buffer);    NEW_IINEJ    —   display   line 

ENE  icop; 

putxy(25,20,"<ENTER>    to    Continue"); 

getxy  immediate (  44, 22  ,>ey  ) ; 

exit; 

ELSE 

— keep  searching  for  data  set  until  end 
EXIT  WEEN  ENE  CF  HIE  (fyle); 
ENE  if; 
EN I  loop; 
CICSE(fyle); 

— #  :*eep  track  of  help  accesses 
--#  remove  from  production 
-«      PUT(test  file,"H!L?  -  "  &  data_set); 
•#  NEW  LINEltest_file); 

ENE  help? 

FROCEEUPE  view  table(f  llenaire :  IN  STRING)  IS 
USE  io;     --  Open ,CLOSE, GET  LINE 
BEGIN 

PUT(teli); 

putxy (0,22,"<ENTER>  to  Continue,  ENTER  <X>"  & 

to  View  Valid  Entries:"); 
IF  irark(52t22)  TEEN 

Cnen(fyle,filenarretRead_Cnly ); 
WEILE  NOT  ENE_OF_FILE(fyle)  LOOP 
torder ; 
putxy(9,l,"VALIE  ENTRIES  (REE.  OPNAVINSI    & 

"3503.5  "  &  filename  &")"); 
FOR  y  IN  3.  .20  LOOP 

EXIT  */EFN  ENE_CF_EILE(fyle); 
buffer  :=  GET_LINE( fyle) ; 
putxy(0,y, buffer) ; 
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END  iccp; 

putxy(0,22,"<ENTER>    to    Continue,    INTO   ^X>    tc        & 

Exit:"); 
EXIT   VEIN    rrdrK(40,22)  ; 
END    ICCP; 
CLCSE(fyle) ; 
END   if; 
ENI    view   table; 


EUNCTION    required  print  (changed   iterr:    300LEAN) 

RETURN    BOOLEAN    IS 
BEGIN 

IF  action_is(draf t)    OR   action    is(verify)    OB 
(action   is(print)    AND   changed_iterr )    TEEN 
RETURN   TRUE; 
ELSE 

RETURN   FALSE; 
ENI  ie; 
ENI    required_print ; 


PROCEDURE   draft_aid (data_set:    IN   STRING)    IS 
USE   printioj  — out_o Pinter 

USE    ioi  — Open, CLOSE, G~£T_LINE,END_CE_FILE 

—  provides    printed    forrrats   for    the   assistance 

—  of   drafting  a   unitrep 

EEGIN 

put  nrinterf null  string); 

Open?  fyle,"DRAFTTTXT",Read_Cnly) ; 

LOOP 

file_tuffer  :=  GET_LINE( f yle ) ; 
IE  file_buffer  =  data_set  TEEN 

tut_urinter ("******  "  &  file_buffer  & 

-  DATA  SET  INFORMATION  ******"); 
LCOP 

file_buffer  :=  GET_LINE ( fyle ) ; 

EXIT   toEEN    file_buffer   =    ".";  —   delirr.eter 

put_printer( f ile_buf f er) ;    —  Printline 
END   LOC?; 

put_printer(null_string); 
put_printer( null_st  ring) ; 
put_printer(null_string); 

exit; 

ELSE 

--keep  searching  for  data  set  until  end 
EXIT  WEEN  ENI_OF_FILE(fyle); 
END  if; 
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ini  loop; 

CLOSi(fyle); 
INI   draft   aid? 


BEGIN 


a_mark  : 
y'rrark  : 
blank    := 


—    strings   of>%l 
=   t<A,'>    x_nnark:    :=    "x";    nmark    :=   "n' 
=   "T";    d~rrark    :=    "d";    r_rrark    :=    "R* 
";    dash    :=   "-";    star~:=   "*"; 


null_s  t ri ngf%  :=        ; 
fclankln    := 


—  no   characters 


dashln    := 


INE   urglotai; 


& 
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PACKAGE  urutil  IS 

—  This  package  provides  utility  routines  to  oe  used 

—  in  constructing  a  UNITREP 

PROCITURE  verify_number(number   of   digits:    IN    INTEGER; 

teirp:    IN   DUT    bTRING; 
success:    OUT    9COLEAN; 
number:    OUT    INTEGER); 

—  This   procedure   converts   a    string   of    numerical 

—  characters    to   an    integer    or    returns   an    error   if 

—  any    character    in    the    string   is   not    '0'-'9'. 

PBOCirUBI   verify  dtg(dtg:   IN   CUT  STRING; 

success:    CUT    BOOLEAN); 

—  Error  checks  date-tire  groups. 

FROCErUFE  verify  lat  longdat  long:  IN  OUT  STRING; 

success:  OUT  EOCIEAN) ; 

—  Error  checks  lat/long  position  reports 

FUNCTION  checksur(terrp:  STRING)  RETURN  INTEGER; 

—  performs  checksums  on  string  teirp 

FUNCTION  zero  pad ( number _of  digits:  INTEGER; 

teirp:  STRING)  RETURN  STRING; 

—  pads  a  string  which  represents  a  nurber 

—  with  zeros  to  fill  out  the  field  of  digits 

FUNCTION  getxy  digits (x ,y, number  of_oigits:  INTEGER) 

RETURN  STRING; 

—  gets    nurrber_of_digit s   at    x,y   and   error    checks 

ENI   urutil ; 
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WITH  strut,  --  JANUS/AEA  Libraries 

consio, 

urglobal » 
PACKAGE   ECU   urutil    IS 
USE   consist 
US E  urglobal; 

—  Shis   package   provides  utility   routines    to    be   used 

—  In   constructing  a   UNITREP 

PHOCirtJBE   verify_number(number  of  digits:    IN    INTEGER; 

terrp:    IN    OUT    STRING; 
success?    OUT    3COLEANJ 
number:    CUT    INTEGER)    IS 
US!    strlib?    —  Length, Str_to_Int 

—  This   procedure   converts  a    string   of    numerical 

—  marketers    to   an    integer   or    returns   an    error   if 

—  any   character   in    the    string   is   not    '0'-'9'. 

—  largest    valid   entry    is   32767. 
3  EG  IN 

success    :=   TRUE; 

I?   Length(teirp)-  0   THEN     —   check   for   no    input 

success    :=   FALSE; 
ELSE  ~   check   for   ascii    '0'    -'9' 

teirp    :=   zero_pad  (nurrber_of_digi ts  , terrp) ; 
FOR"  1    IN   l..number_of_ digits   LOO? 
CASE    teirp(i  )    IS 

WHEN    '    '    =>  terrp  (i  )    :=    '0'; 
WEEN    '0'.  .'9'    =>    NULL; 
WEEN    OTHERS    =>    success    :=   FALSE; 
EMI  case; 
ene  loop; 

END    II ; 

II  success  TEEN 

number  :=  Str_to_Int (temp) ; 

--  range  check 
IF  number  NOT  IN  2  . .  (12-**nuirber_of  _d  igits  )  -  1  TEEN 

success  :=  FALSE; 
FNL  if; 
ELSE 

nurrber  :=  0; 
ENE  n; 
ENE  verify_ nurrber; 
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JUNCTION  checksum (temp:  STRING)  RETURN  INTEGER  IS 
US  I  strlib;  —Extract  ,Str  to  Int.  Length 
BEGIN  "   " 

number  :=  8 ; 

FOR  i  IN  1.  .Length (temp)  LOCF 
nurrter  :=  number  + 

Str_tc  Int(  Ex  tract  ( temp,i,l ) )  ; 
IE  number  >*  10  THEN 

nurrber    :-•  number  -  10; 

ini  if; 
ini  loop; 

P1TDBN   nurrber; 
EN  I   checksum; 

PROCEDURE  verify  dtgCdtg:  IN  CUT  STRING; 

success:  OUT  BOOLEAN)  IS 
USE  strlib;  — Length , Extract 

—  Error  checks  date-time  groups. 
sue:  ecolean; 

terror    STRING; 
mon*:    STRING(3); 
dnum,hnumfmnum,ynum :    INTEGER; 

3EGIN 

success  :=  TRUE; 

—  check  for  incomplete  string 
IE  (Length (dtg)  /=  12)  TEEN 

success  :=  F'ALSE; 
ELSE 

—  rangecheck  date  1-31 
temp  :=  Extract [dtg, 1, 2) ; 

veri  fy  number (2  ,  temp  tsuc ,dnum ) ; 
II  (  NOT  sue  OR  (dnum  <  1)  OR  (dnum  >  31 ) ) 
TF1N  success  :=  FALSE;  ENE  IE; 

--  rangecheck  hour  2   -   23 
temp  :=  Extract (dtg, 3, 2) ; 
verify  sum cer (2 ,temp ,suc ,hnum ) ; 
I?  (NOT  sue  OR  (hnum  <  0)  OR  (hnurr  >  23 )  ) 
THEN  success  :=  FALSE;  END  IE; 

—  rangecheck  minute  0  -  59 
temp  :=  Extract (dtg, 5,2) ; 
verify_num  ter (2, temp ,suc ,mnum ) » 

IE  (NOT  sue  OR  (mnum  <  0 )  OR  (mnum  >  59)) 
THEN  success  :=  FALSE;  END  IE; 

—  check  for  "z"  seperator 
temp  :=  Extract (dtg, 7, 1) ; 
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IF  (temp  /=  "Z")  TEEN  dtg(?) 


END  II; 


—  rangecheck  month 
mon  :=  Ext ract £dtg;t8 ,3) ; 
II  NCT  (  (rron  =  '  JAN  )  OR 
OR  (iron  =  "APE" )  OR 
OB  (Ton="JUL")  OR 
OR  (rron  =  "OCT")  OR 
THIN  success  :=  FALSE; 


(rrcn  =  "liP' 

■  \ 

OR 

(rron  =  ' 

MAR' 

.) 

(iron«'>AT' 

) 

CR 

(iroa-] 

'jun' 

,) 

(rron  =  "AUC 

OR 

'rron  =  ' 

'SEP' 

) 

(rron="NCV' 

\ 

CR 

(iron*' 

'DIC' 

') 

ENI    IP; 

—  rangecneck  year  82  -  99 
terp  :=  Extract (dtg , 11 ,2  ) ; 
verify  nuffber  (2  ,  temp  ,suc  ,ynum) » 
II  (  NOT  sue  OR  (ynum  <  82)  CR  (ynurr  >  99)) 
TFIN  success  :=  FALSI;  ENE  IF; 
ENE  ii; 

II  NCT  success 

TEIN  NULL; —  range  error  -  fali  through 
—  no  other  checks  required 

— check  for  comDinational  errors 
IISII  (  (iron  =  "FIE")  ANT 
(  (dnum  >  29)  OR 

(  (dnum  =  29)  ANL  (ynurr:  rrcd  4  /=  0)  )  )  ) 
TEEN  success  :=  FALSI; 
IISII  (  ((rron  =  "NOV")  CR  ( mon="A??."  )  OR 

(rron="jUN" )  OR  (  morV'SZ?  ' )  '•  ANi:  (dnurr  >  30)  ) 
TEIN  success  :=  FALSI; 

im  if; 

II   NOT    success   TEIN 
e  r  r  o  r  ( 1 J  J 
dtg    :=     ddhhirirZ^MMyy    J 

iNr  ii; 

END  verify_dtg; 


:?OCILUPF  verify  lat  loag(lat  long:  IN  OUT  STRING; 

success:  OUT  3COLZAN)  IS 
USE  strlib;  — Length, Extract tStr_to_Int ,Char_to_St 
—  error  checks  lat/long  positions 


sue:  ECCLIAN; 
terrp:  STRING; 
lat_de*,lat  rrin.long  deg,long  rrin, 

lat_check,longIcheck:  INTEGER; 
BEGIN 

success  :=  TRUE; 
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IF   Length(lat_long)    /=   14   TEEN 

success    :=  FALSE; 
ELSE 
.    —   check   latitude 

terrp    :=  Extract  (lat_long,  1,2  ) ; 

verify_nurrber(2,terrp,  sue,  lat  _deg) ; 

IF    (    (NOT    sue)    OR    (lat_deg    NOT    IN      0..S0))    TEEN 

success    :=   FALSE;    ENI    IF; 
terrp    :=   Extract ( lat_long, 3,2) ; 
verify   nurrter  (2  ,terrp,  sue,  lat_rrin  ) ; 
IE    (    (NOT    sue)    OR    (lat    Tin    NOT    IN      0..59)     )    THEM 

success    :=    FALSE;    ENE    IE; 
II    lat    long(5)    /=    'N'   ANE   lat   long(5)    /=    'S '    TEEN 
success    :=   FALSE;    ENE    IF; 


lat_long(7) 


—  check  longitude 
:=  Extract (lat_longfe, 3) ; 

*  er(2,  terrp,  sue,  long  aeg); 
uc)  OR  (long_deg  NOT  IN   0..180)  )  TEEN 

=  false; 


terrp 

verify_nurrb 
II    (    (NOT    sue) 

success 
ENE   if; 


2) 


_  IV  i.         1J) 

terrp    :=   Extract  ( lat_long,  11 ,2 
verify_nunber(2,  terrp,  sue  ,  long 

nrp      IN 


IF    (     (NOT 

success 
ENE   if; 
IF    iat_long(13) 

success 
ENE   if; 
5NI   if; 


sue)    OR    (long_rrin 
:=  false; 


rrin) 


NO' 


0..59)    )    THIN 


/=    'E 

•=  false; 


ANE    lat    long(13) 


/  = 


IF  success  THEN 

—  checks  degrees  too  large 

IF  (  (Str_to_Int(Extract(lat_long,l,4) )  >  90_00)  OH 
(Str_to_Int(Extrect(lat_long,8f5))  >  180_00 ! )  TEiN 
success  :=  FALSE; 

ENI  if; 

—  latitude   checksum 
terrp    :=   Extract  (lat_long  ,6  ,1 ); 
verify_r.urrber  (1  ,teirp,  sue, lat  _ check  )  ; 
I?    (NOT    sue)    OR   ELSE 

lat    check   /=   checksurr(  Extract  (lat_long  ,1 ,4)  )    TEEN 
success    :=   FALSE; 
ENE   if; 

—  longitude   checksurr 
terrp    :=   Ext ract ( lat _long , 14, 1) ; 
verify   nurrberd  ,  terrp,  sue,  long_ check) ; 
IE    (NOT    sue)    OR    ELSE 
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long_check   /=  checksum ( Extract (lat_long ,8 ,5) )    THIN 
success    :=   FALSE; 
INE   if; 
ENE    II? 

IF  NOT  success  THEN 

error (18);  n        —  invalid  latlong  position 

lat  long  :=  "ddrrirLC-dddirrrEC"; 
EM  if; 
ENE  verify_lat_long; 

FUNCTION  zero_pad(nurrcer_of_digits :  INTEGER; 

temp:  STRING)  RETURN  STRING  IS 
USE  strlib;         —  Length 
2EGIN 

buffer  :=  terrp; 

WHILE  Length^ Duffer)  <  number  of _digi ts  LCOF 

buffer  :=  '  0"'  &  buffer; 
EM  lcop; 
RETURN  buffer; 
ENE  zero_pad; 


JUNCTION  getxy  digits(x,y, number  of  digits:  INTEGER) 

RETURN  STRING  IS 
USE  strlib;         — Char  to_St r  .Extract .Length 
key:  CHARACTER; 
buffer:  STRING; 
success:  3C0LEAN; 
number:  INTEGER; 
BEGIN 
LOOP 

getxy_imrrediate(x,y,key); 
IE  key  =  no_input  TBEN 
buffer  :=  null  string; 

exit; 

ELSE 

tuffer  :=  Char_ to_S tr( key ) ; 

ECR  i  IN  1 .  .number_of_digits-l  LOOP 

getxy_imrredidte(x+i,y  ,key ) ; 

EXIT  WEEN  key  =  no_input; 

buffer  :=  buffer  &  Char_to_Str ( key ) ; 
ENE  iccp; 

—  strip  trailing  clanks 
FOR  i  IN  REVERSE  1 . .Length ( brffe r  )  LOOP 

EXIT  WEEN  buffer(i)  /=  '  '; 

IF  t)uffer(i)  =  '  '  THIN 

buffer  :=  Extract (buffer ,1 ,i-l) J 

ENE  if; 
ENE  loop; 
IF  buffer  /=  null_string  THIN 
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verify_nurber(nurrber_of_digits, 

buffer,  success,nurrber); 
EXIT  WHEN   success; 
error(lQ);      —   invdlid   nurrber 
USE 

EXIT;  —    return    null    string 

END    IE,* 
5NI   if; 
eni  icop; 

RITUSN   buffer; 
INI   getxy_digits ; 


EN I   urutii; 
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PACKAGE  art est  IS 

—  Provides  for  gathering  testing  data  of  the  PCS 

—  GNITREP  system 

test_file:  Fill* 

PHOCHUBI  open_initial_  test  (serial:  IN  STHING); 
PBOCEDOBE  open_test;   —  intermediate  test 
FHQCEEUBI  close  test;  —  in terrrediate  test 
PBOCIBURI  close  _final__test; 
INI  urtest; 
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SITE  lo.strliD,  —  JANUS/ADA  libraries 

c  o  n  s  i  o  ? 

PACKAGE  SCn  urtest  IS 
USE  consio; 

—  Frovides  for  gathering  testing  data  of  the  ROS 

—  UNITREP  system.  Test  file  TISTXXX  results  on  3: 

—  disk 

test_number:    INTEGER,* 
testee_narre:    STP.ING(30); 
s  tart_  time, stoi>_  time:   STRING(12); 
corrrrent:    SIRING,* 

rROCEIUFI   open   initial   test (serial:    IN  STRING)    IS 
USE   Io»  —  Open, CLOSE, DELETE, Create 

USE    strlib*  —    Int   to  Str 

fllenarre:    STRING(14); 
BEGIN 

—  get    the   test    number 

Open (test_f lie, "TIST000",Bead_Cnly) ; 
GET( test_file,test_number) ; 
CICSE(test_file); 

—  increment    the   test    nurrter  &   store 
test    number    :=   test_numDe^   -    1* 
EIIlfl("TEST000"  ),* 

Createjtest    file,"TES 1000", Write   Only); 
Open( test  jf  lie ,"T2ST000",Write_Only) ; 
PUT  (test_file,  test _nurrber) ; 
CLOSE (test   file); 

~    open   the    file    for   THIS    TEST   lata 
fiienarre    :=   "2:TEST"    &    Int    to   Str  ( test_number)  ; 
I2LITI( filename) * 
Create (  test  _f ile,  file  na  re  ,'*'rite_  Only); 

— u    should    check  disk   full   &   full   directory 
Cpen( test_file,filenameiWrlte_Only ) * 

—  start    test    mask 
clear_screen * 

putiy(0,3,"ROS  UNITREP  TEST  INFORMATION " ) ; 
putxy (0,6, 

"ENTER  Drafter  Rank/Name: ■ — ")i 

pu  t  xy  ( 0 , 9  , 

"5NTIR  Start  Tirre  (Local  -  ex.  19EECS2  1630)"); 
putjy(25,ll,"ddMMMyy  hhrnm")  * 

—  get  screen  data 

get xy (25,6,  testee_narre,30) ; 
getxy  (25,11  ,start_t  lire,  12  )  * 
PUT(test    file, filename 

&"  test  data  on  UNITREP  serial   &  serial) 

NEV_LINE( test_file) I 
?UT(test_file, "Drafter:    "&   testee_narre)  * 

NEW   LINK  test   file)  ; 
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PDT(test   file/'Start    Time:    "&    start    time); 
NEW  LINE(test_file) ;    NIW  LINI( test  file); 

PUT(  test   file," ERRORS    RAISEE ■ ")', 

NEW_LINZ(test_file)  ; 

—  errors   will   be   supplied   froir   PROCEDURE   error   in 

—  package  urglobdl 
INI   open_initial_test ; 

PPOCErURE   open_test    IS 

USE   iot  --   Open, CLOSE, LELETE, Create 

USE   strlib;  —    Int_to_Str 

—  intermediate   test    data 
filename:    STRING(14); 

E1GIN 

—  get  the  test  number 

Open( test_file,"TEST000" ,Read_Only ) ; 
GET(test  file,test_number ) ; 
CLOSif test_file) ; 

—  increment  the  test  numoer  &  store 
test  number  :  =  test_number  +  l; 
rELiTE("TEST000"); 

Create( test_f ile ,"TEST000" ,'*'rite_0nly ); 
Cp en (test_file,"TEST000", Write, Only) ; 
PUT( test_file,test_ number ) ; 
•CICSKteit  file)  ; 

—  open  the  file  for  TEIS  TEST  data 
filename  :=  "3:TEST"  &  Int_to _S tr ( test  number); 
EELEUE (filename) ; 

Create( test _file, file name,* rite_Cnly ) ; 

—  should  check  disk  full  &  fall  directory 
Open( test_file .filename, Write_ Only ) ; 

ENE  open_test; 

PR0CILUP5  close_test  IS 

use  io;    --  close; 

—  intermedidte  test  data 
BEGIN 

CLOSIf test_file); 
ENE  close  test; 


PPOCEEUPE    close_final_test    IS 
USE   io;  —   CLOSE 

BIGIN 

—  set  close  test  screen 
clear_screen; 

putxy(0,3,"RCS  UNITEEP  TEST  I  NFOP.MAT  ION"  )  ; 
putxy (0 ,6, 

"INTER  Stop  Time  (Local  -  ex.  19EEC82  1930}"); 
T3utxy(  25, 8,  "ddfTryy  hhmm"  )  ; 
outxy(30,I0,"COI*"ENTS'  (8  lines  max)"); 
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getzy  (25,8,stoo_tiire,  12); 

PUT(test  file,  Stop  Time:  " S>   ston_time); 

NEW  IINEl test  file); 

PUT(test  file,"*****   C 01*1*1  NTS  *****"); 

NE)*_IINE[test_file); 

--  test  comment  mask 
FCP  y  IN  11.. 19  LCCP 

JOB  x  IN  0..79..LOOP 
putxy(x,y,"-")» 

INI  locp; 
INE   LOOP? 
PC?   y    IN   11.. IS   LOCP 

getxy(2,y,coirirent  ,80)i 

HIT  WHEN   comment    =   ""; 

PDT(test    file.corrment  );    NIW_IIM(test_f  ile) ; 

ini  loop; 
CLCSKtest  file); 
INI   close   final    test; 


ENL    urtest; 
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PACKAGE  urglbl  IS 

—  contains  structure  of  the  commer.t_set  used  in 

—  preparation  of  ANPN/PP5S 

—  max  number  of  comment  lines  for  ampn  set 
maz_corrment :  CONSTANT  :=  10; 

—  for  message  line  6S  -  (AMPN/  or  PfK/)  &  //  =  62 
max_line_length:  CONSTANT  :=  62; 

TYPE  coirrrent  set  IS 
RECORI 

change:  rOOIEAN; 

numter_of_lines :  INTEGER;  --  constrain  1 . .rax_ccmment 

ini  eicchd; 

ENI  urglti; 
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WITH  urlocalAJ 
PACKAGI  unitrepA  IS 
USE  urlocalAJ 


—  The  basic  unitrep  data  set  and  variable 

—  for  data  structure  A,  LCCAL  information 


TTPI  unit rep  set  IS 
RICOBI 

1 :  local  set ; 
INI  B1CORDJ 

a:  unitrep_set I 

INI  unitrepA; 
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WITH  urglti;  —  for   comrrent_set 

PACKAGE   urlocaiA    IS 
USE  urglti? 

—  This   package  provides    the  data   set   definition 

—  for   the   LOCAL   data    used   in   UNITREP   construction 

—  general    local    information 
TYPE  status  set    TS 

RECORI 

transmitted :    BOOLEAN; 

last    serial:    STRING(3); 

feeder_report :  BOOLEAN; 

unit  id:  STRING (20) ; 

currint_serial:    STRING(3); 

arrpn:    comment_set?    —   for    MSGID/UNITID    sets 
INL  record; 

TYPE   class   IS    (unclas , confidential , secret ,top_secret ) ; 

TYPE   prec   IS    (routine,  priori  ty,  irnrediate  ,fl«*sh) ; 
TYPE   message    set    IS 
RICC5L 

precedence:    Dree; 
dtg:    STPIMG(12); 
originator_ad dress:    STRING (50) ; 
classification:    clesi»* 
declassification:    STEING(61); 
ENI  record; 

TYPE   operation   set    IS 
RECCP.I 

underway:    BOOLEAN; 
codeword:    STUNG (32); 
plan_org_number:    STRING(23) ; 
ENI  recore; 

TYPE   exercise_set    IS 
RSCORI 

underway:    SCOLEAN; 
nicknarre:    STRING  (62); 

sni  becorl; 

TYPE  pcsition_set  IS 
PECCRL 

change:  300LEANJ 

lat_long:  BOOLEAN; 

present_location:  STRING(20); 

dtg:  STRING(12) ; 

ampn:  comment_set>* 
ENL  RECCRC; 


192 


— rraxiirufr  #  of  remarks  pages,  10  lines/page 
max_rrrks_pages  :  CONSTANT  :=  1£J 
TYPE  remarks  set  IS 
RECOHE 

change:  BOOLEAN; 
n«irijer_of_pages:  INTEGER; 

—  constrain  1 .  .nax_:.-mks_ pages 
rage:  ARRAY (1.. max  rrcks  pages)  0?  comment  set? 
INI  record; 


TYPE  local_set  IS 
PECCPT 

change:  BOOLEAN; 
status:  status_set; 
message:  message_set; 
operation:  operation_set; 
exercise:  exercise_set; 
position:  position_set ; 
remarks:  remarks_set; 
INI  record; 


INT  urlocalAJ 
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WITH  uradminB,urair3; 
PACKAGE   unitrepB    IS 
USE   uradrrlnB,urairB; 


—  The    basic  unitrep   data   set    and   variable 

—  for   ddt<*    structure   £   -   AIR  <md   ADMIN 


TTPE  unitreu  set  IS 
RECORD 

dd:    ddrrin_set; 
ar:    air_set; 

end  record; 

u:   uni trep_set ; 
END   unitrerS; 
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WITH  vrglhi;  —   for   co-rrent_set 

PACKAGE   uradrrinB    IS 

osi  urgiti; 

—  This  package  provides  ADMINISTRATI VE  data  set 

—  declarations  for  UNITREP  construction 


—  adrrin  TYPE  declarations 
TYPE  phys_status  IS  (onboa rd  .departed) ; 

TYPE   n_rep_Oi-g    IS 

7  cno  ,cincpacflt,cinclantflt ,c incus naveur) ; 

TYPE   verification    IS    ( valid, correct ed ) ; 

TYPE   command_set    IS 
RECORD 

change:    BOOLEAN; 
cooic:    STRING(3Z)J 
dtg:    STRING(12); 
arrpn  :   corrtrent_set ; 
ENI   RECORD; 

TYPE   activ_set    IS  • 
RECCRD 

change:   BOOLEAN; 
activity_code:    STRING(2); 
arrpn  :    corrrrent_set ; 
END  record; 

TYPE   rredic_set    IS 
RECORD 

change:    BOOLEAN; 
status:    phys_status; 
arrpn:    corrrent    set; 
END    RECORD; 

TYPE  re~  crg_set  IS 
RECORD* 

change:    300LEAN; 
new_rep_org:   n_rep_org; 
dtg:    STRING(12); 
arrpn:    co~rrent_set ; 

end  record; 
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TYPE   verify_set    IS 
RECCED 

change:    BOCLEANJ 
feedhack_ver :   verification; 
anrpn:    cornrent_set ; 

ini  record; 

TYPI   adrrin_set    IS 
RICCRD 

change:    rCCLEAN; 
corrrrand:    corrrrand_set ; 
activ:   activ_set; 
rredic:   rredic_set; 
reporg:    rep_org_set; 
verify:    verify_iet; 
EM    BICCF.D; 


EN I    uradnin3» 
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WITH  urglbl?         —  for  comment_set 
PACKAGE  urdirB  IS 
OSI  urglbl? 

—  data  structure  definition  for  AIR  Situation 

—  of  a  TJNITREP 

rrax    recon:    CONSTANT    :=   11 J    —   set    by   OFNAVINST  3503.5 
TYPE   recon_set    IS 
RICCRI 

change:    BOOLEAN? 
delete:    BOOLEAN; 

auirber  of  capabilities:    INTEGER; 
capability:   ARRAY(1.  .irax_recoa)    OF  STRING(8)? 
arrpn:    coirirent   set ; 
ENE    RECCPE? 

TIPS  crevstat_set  IS 
RECOHI 

change:  KOI  IAN,' 

delete:  BOOLEAN? 

formed:  STRING (2); 

ready:  STRING (2)? 

ampn  :  coirrrent^set? 
ENE  RECORD? 

TYPE  airstat  set  IS 
RECOHI 

change:  BOOLEAN? 

delete:  EOCIEAN? 

possessed  :    STRING(2  I? 

f re  :    STRING (2); 

prrc:    STRING(2)? 

nmc :    string(2) J 

arrpn:    corrrent_set ; 
INI   EECCRr? 

TYPE  dispersed_aircraft  IS 
RFCORE 

change:  BOOLEAN? 

delete:  BOOLEAN? 

iss:  STRING (30) ? 

airstat:  airstat_set? 

crevstdt:    crewst<it_set? 

recon:  recon_set? 
INI  R1C0RP? 
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TYPE  authorization_set  IS 
RECCFE 

change:  BOOLEAN; 

delete:  BOOLEAN; 

iss:  STRING(2); 

arrpn:    corrrrent_set ; 
ENE  record; 

irax_locations:    CONSTANT    :=   £;    —  RCS   design   decision 
TYPE  aircraft    type_set    IS 
RECORI 

change:    ECCIEAN; 

delete:    BOOLEAN; 

iss:    STRINGf?); 

ac_auth:  authorizat ion_set ; 

crews_auth:  authori za tlon_set ; 

nuirter_of_locations  :  INTEGER; 

location:  ARRAY  (1.  .irax_locations)  CE 

di  spersed_a ire raft ; 
ENE  5ECCRE; 

rrax  ac  types:  CONSTANT  :=  5;  —  RCS  design  decision 
TYFE  air  set  IS 
RECORE 

change:  EOOIEANJ 
nuirter_of_ac_types  :  INTEGER: 

ac  type:  ARRAY  (1. .mai_ac_types)  OF  aircraf t_type_set ; 
ENE  beccp.e; 

ENI  urairBJ 
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WITH   io.util  ,chainlib,strliD,    —  JANUS/ALA   libraries 
consio ,printio , 
filerA, 

urglobal ,urutil , 
— #       urtest, 
uni trepA, 
urlocalAJ 
PACKAGE  1CIT  unitrep  IS 

USE  io,       --  Open, CLOSE, Create, EILITI 
chainlib,  —  Simple_Chaln 
consio  ,printio , 
filerA, 

urglobal  ,urut il , 
— #      urtest, 
unitrepA, 
urlocalAJ 


PHCCIDU1I  check_required_files  IS 

--  checks  to  make  sure  all  neccessary  files 

—  are  present 
BEGIN 

—  program  status 

IE  NOT  valid_file("STATUS")  THEN 

terminate (file_error,"STATUS") J  END  IE,* 

—  the  data  structure 
IE  NOT  valid_file("UNIT000" )  TEEN 

terminate  (file_error,  "UNIT000"  ) ;  EM  IE; 

—  serial/dtg  crossref 
IE  NOT  valid_file("CECSSHEE")  TEIN 

terminate (f ile_error, "CHOSSRET" ) ;  END  IF; 

—  addressees 

IE  NOT  valid_file("ACTION")  THEN 

terminate*? lie  error, "ACTION");  END  IE; 

IE  NCT  valid  f lie ( " INEO" )  TEEN 

terminate(file_error,"lNEC") ;  INI  IE; 
--  error  messages 

IE  NCT  valid_file("ERRMSG")  THEN 

terminateffile^error^IBBCSG");  END  IE; 

—  helo  text 

IE   NCT   valid_fileCEELP.TXT")    TEEN 

termlnate(file_error, "HELP") ;  END  IE; 
IE  NOT  valid_file("DHAET.TXT")  TEEN 

terminate (file_error, "ERAET.TXT");  END  IE; 

— *  test  info  -  remove  from  production 
-#      IE  NOT  valid_file("TEST0e0")  TEEN 
-#        terminate(file_error,"TEST000"):  END  U; 

—  reference  tables 

IE  NOT  valid  f ile ( "TA3LE. 3-2" )  TEEN 

terminate(file_error, "TA3LE.3-2") ;  END  IE; 
IE  NOT  valid  file ( "TA3LE. 3-3" )  TEIN 
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terminate (file  error, "TABLE. 3-3" ) J  END  IF; 

IF   NCT   valid_file("TABLE.B-€")    THEN 
teririnate(file_error,"TABLE.B-6  *);    END   IF; 
— module   for   urlocal 
IF   NCT  valid   file("UNITREPl. COM")    THEN 

terminate(file_errcr,  "UNHREPl.CCM"  );    END   If; 
--   module    for   urair    and   uradmin 
IF   NOT   valid_file("UNITE2P2.C0K')    THIN 

terminate  (file  error, "UNITBEP2 .  COM");   END   IF; 

IF   NCT   valid_file("UNITREP3.C0r")    THEN 
f  ternrinate(file_error,"UNITREP3  .COM") ;    INI    IF; 

ENI    checfc_required_f iles; 

PROCErUP.E    signon    IS 
BEGIN 
■border; 
outxy(0  ,3, 

"SIGN   ON    -   ROS    UNITHEP   SYSTEM   -    VERSION   1.1    -   JAN   S3"); 
putxy(2,5, 

"The    Current    Workflle   is    UNITREF   Serial   ."); 

pu t xy (39, 5, u.l. status. current    serial); 
IF  u.l. status. transmitted    TEEN 

putxyj[0,8,    It   HAS    been   logged    as    transmitted:   DTG")J 
putxy (39  ,8, u.l .message. dtg)  ; 
ELSE 

putxy(0,8,"lt    HAS    NOT   been   logged    as    transmitted."); 

end  n; 

uutxy(10,20, 

<ENTER>  to  continue,  ENTER  <?>  for  HELP  information:  )J 
LOOP 

getxy_ immediate (63 ,20 ,key ) ; 
CASE  key  IS 

>(HEN  no_input  ispace  =>  EXIT; 
WEEN  ques   => 

helpf'SIGN  on");    exit; 
WEEN   OTHERS    =>   error(6);  —    incorrect    inout 

ENr  case; 
eni  lccp; 

END  signon; 

PROCEDURE  choose_action(action_is :  CUT  action_s tate)  IS 

—  selects  one  of  tne  executable  RCS  UNITRE? 

—  actions 

PROCEDURE  initialize_action  IS 
3EGIN 

ECR  i  IN  action  RANGE  draft.. quit  LOOP 

action  is(i)  :=  FALSE; 
ENr  loop; 
ENI  initialize  action; 


1S< 


PROCEDURE  actionrrask  IS 

—  draws  the  action  screen 
BIGIN 
border; 

putxy (68,1 ^"SERIAL  "&  u.  1 . status .current_serial )  ; 
putxy(0,3,  ACTION  t"5NU"); 

putxy(19,5,"-l-  Prepare  UNITREP  Iraft  locurrent"); 
putxy(19f6t"-2-   Initiate  New  UNITREP"); 
putxy (IS, 7, 

"-2-   Remote /Modify/Add  Tata  to  Pending  UNITREP,"); 
putxy(19,8,  -4-  Print  Message  Format  Hard  Copy   & 

"of  Pending  UNITRE?") J 
putxy ( 19 ,9 , 

"-5-  Log  Pending  UNITREP  as  Transmitted") ; 
putxy(19,10,"-€-  Erase  Pending  UNITREP"); 
putxy( 19, 11 , "-?-   Prepare  Verification  Summary"); 
putxy (19, 12, "-8-   Quit"); 

putxy(19, 14, "ENTER  the  desired  action:  "); 
putxy (0  ,15,dashln) ; 
INI  actionrrask; 

desired_action:  CHARACTER; 

BEGIN 
ICCP 

ini tialize_act ion ; 

actionrrask; 

getxy_imrrediate(45, 14,desired_action) ; 

CASE   desi red_acticn    IS 

WEEN    '1  '    =>   action_is(draft)     :=   TRUE; 

exit; 

WHEN  '2'  =>  action_is(neww)  :=  TRUE; 

exit; 

WHEN  '3'  =>  action_is(rrodify)  :=  TRUE; 

exit; 

WEEN  '4'  =>  action_is(print)  :=  TRUE; 

exit; 

WHEN  '5'  =>  action_is(log)  :=  TRUE; 

exit; 

WEEN  '6'  =>  action_is(erase)  :=  TRUE; 

exit; 

WEEN  '7'  =>  action_is (verify )  :=  TRUE; 

exit; 

WEEN  '8'  =>  action_is(auit )  :=  TRUE; 

exit; 

WEEN  OTHERS  =>  error(e);       —  incorrect  input 
ENI  case; 
ENI  loop; 
ENI  cheese  action; 
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PHOCIEURI  process   act  ion (actionis  :    IN  OUT  action   state? 

success:    CUT    POCLZAN )    IS 
USE    io.strlito; 

— ■   performs   required   file  actions   to   corrply 
—  with   action_is 

filencrre:    STRING(14)J 

serial?    STRING(3); 
dtg:    STRING(12) ; 

BEGIN 

urogram. vorkfile  :=  "UMTSee"; 
IF  actio:i_is(draft)  THEN 

II  NOT  5-1. status. transmitted  THEN 

putxy  (0,16,  "tThe    Current   Vorkfile    has    not<#been        & 

"transmitted.   Do   you  want    ..."); 
putxy(5,l?,"(    )    Draft    of   the   Current    Workfile")? 
putxy(5,l£ , 

"(    )    Draft    of   the   last    submitted   UNITREP"); 
r.utxy(21,?0, "ENTER   <X>   as    recuired"  )  ; 
IF   mark (6, 17)    THEN  --  use   current    UNITRE?  data 

success    :=  TRUE; 
ILSIF   marl:(6,18)    THIN 

—   get    last    submitted    UNITREP  data 
filename    :=  "B:UNIT"&  u.l. status. last_serial J 
IT  valic[_file(filenatre)    THEN 
program. vorkfile    :=   filenarre; 
success    :=   TRUE? 
ILS1  —   invalid    file 

error ;2 ) ; 
success    :=   FALSE; 
INT  if; 
ILSI     —    this   action   was    not   desired 
success    :=   FALSE; 

ene  if; 

ELSE  —  use  current  UNITRE?  data 

success  :  =  TRUE; 
SNE  if; 
II  success  TEEN 

line_count  :=  l;      —  in  printio 

set_f  orrrat  ( text ) ; 

putxy(0  ,20,hflankln)  ; 

putxy(0, 20, "Select  Areas  for  Draft  Document,    & 
"Ready  printer  &  <ENTER>" ); 

getxy_immediate(59,22  ,key ) ; 
END  if; 

ELSIE  action_is(neww)  THEN 

IE  NOT  u.l. status. transmitted  THEN 

error(V); 

--  current  not  transmitted,  rodify  or  erase 
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success  :=  FALSE,* 
IISI 

success  :=  TRUE? 

ini  if; 

ELSII  action_is (modify)  TEIN 
II  u.l. status .transmitted  THIN 

error(8);     — current  transmitted,  initiate  new 

success  :=  FALSE; 
ELSE 

success  :=  TRUE; 
EM  if; 

ELSIF  action_is (print )  TEIN 

putxy (0 ,16 ,"lo  You  wantfa  message  format  hard   i 

"copy  of  ..."); 
putxy(8,17,"(  )  Pending  UNITREP"); 

putxy(8,lS,"(  )  Old  UNITRIF:  serial or    & 

"dtg:  ddhhmmZMMKyy" ) » 
putxy(17, 20, "ENTER  <X>  and  data  as  required. "); 
IF  mark(9,17)  THEN      —  use  current  UNITREP  data 

success  :=  TRUE; 
ELSIF  mark(9,18)  THIN 

—  use  old  UNITREP  data,  get  serial  or  dtg 
getxy(32,18, serial, 3) ; 

IF  serial  =  null  string  TEIN  —  get  dtg 
LOOP 

getxy(46,18,dtg,12); 
verify_dtg(dtg, success) ; 
EXIT  VEIN  success: 
put xy( 46, 18, dtg) ; 
END  loop; 

Open(fyle,"CROSSRE?",?ead_Cnly) ; 
LOCP 

buffer  :=  SIT  LINE (fyle) ; 
IF  Extract(buffer,5,12)  =  dtg  TEEN 
—  dtg  matches  file 
CICSF(fyle); 

filename  :=  "3:UNIT"&  Extract ( buffer ,1 ,3 ) ; 
IF  valid_file(f ilename)  TEEM 
program .workf lie  :=  filename; 
success  :=  TRUE; 

exit; 

ELSE  --  invalid  file 

error (2 ) ; 

success  :=  FALSE; 
INE  if; 
ELSIF  ENI_OF_FILE(fyle)  TEEN 
CLOSE(fyleT; 

error{9);    —   dtg   doesn't   cross    to   a    seridl 
success    :=    EALSE; 
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exit; 

ELSE 

NULL;        —   get    another    line   frorr    Cf'OSSPEF 

ENE   if; 
ENE    LCCPJ 
ELSE  —   use   inrut    serial 

filename    :=   "B:UNIT"   I   serial; 
IF   valid_file(filename)    TEEN 

load_file(filename) ; 

program .workfil e    :=   filename; 

success    :=  TF.UE; 
ELSE 

error(2);  —  invalid    file 

success    :=   FALSE; 

fni  if; 
end  if; 

ELSE  —  not  the  desirso.  action 

success  :=  FALSE; 
ENI  if; 

—  pick  message  format 
IF  success  TEEN 

*OR  i  IN  16. .20  LOOP 
putxy  (0  ,i  ,blankln  ); 
ENE  loop; 

putxy(e ,16 ,"rc  you  want  the  message  in  ...")> 
putxy(8,17,?"(  )  OCR  format'*); 

putxy (8  ,18,"  (  )  Standard  Naval  Message  format"); 
nutxy(27,20,"ENTER  <X>"  ) ; 
LCOP 

IF  mark(9,17)  TEEN 

set_format (ocr) ;  EXIT; 
ELSIF  mark(9,18)  TEEN 

set_f ormat (msg) ;  EXIT; 
ELSE 

error(e);         —  choose  one 
ENI  if; 
ENE  loop; 

line_count  :=  l;      —  in  T:rintio 
putxy(20, 20, "Ready  printer  aid    <INTF5>' ); 
getxy_immediate(44, 20 , key ) ; 
ENE  if; 

ELSIE  action_is(log)  TEEN 

IF  u .1 .status .transmitted  TEEN 
error( 10)  ; 

—  cannot  log  an  alreacy  transmitted  UNITREP 
success  :=  FALSE; 
ELSE 

putxy( 2, 16, "ENTER  the  transmittal  dtgr    & 

"ddhhimnZMMKyy") ; 
LCCP 
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getxy  (2?  ,16, u.l. ires  sage. dtg,  12) ; 

verify  dtg (u.l .message  .dtg  .success  ) ; 

HIT  WEEN   success; 

putxy( 27, 16, u.l. message. dtg); 

eni  loop; 

u .1 .status. transmitted  :=  TRUa; 

u.l  .status.  last_serial    :-   u.l  .status  .current_.serial ; 

filenarre    :=   "B:UNIT"&  u  .1  .status  .eurrent_seriali 

program. workfile  :=  filename; 

store_file( filename) ;   —  completed  data  file 

store  file("UNIT000") ;   --  workfile 

— *  sEould  incorporate  disk  full, 

— *  full  directory  checks 

—  the  insert_dtg  block  is  neccessary  due  to  the 

—  lack  of  random  access  read/write  procedures  in 

—  JANUS  ADA.  Greatly  simplified  in  full  ADA 
insert  dtg:  DECLARE 

TYPE" list; 

TYPE  link  IS  ACCESS  list; 
TYPE  list  IS 
RECOP.r 

serial_dtg:  STRING( 16) ; 
next:  link; 

EN  I  record; 

rrdrk, first  ,1:    link; 

IEGIN 

first  :=  NEW  list; 

—  initialize  -  not  required  in  full  ATA 
first  ,serial_dtg  :=  u.l .status. eurren t_serial  & 

6.  u.l  .message. dig; 
first  .next  :=  NULL; 
mark  :=  first; 
Open(fyle,"CRCSSRIE"*,Read_Only)  J 

—  read  out  old  crossref  data 
WHILE  NOT  ENL_05_HLE(fyle)  LOOP 
1  :=  NEW  list; 

—  initialize  -  not  required  in  full  ATA 
l.serial_dtg  :=  GET_LIN5( fy le ) ; 
1. next  :=  null ; 
mark. next  :=  i; 
mark  :=  l; 
ENL  LCCP; 
CLOSE(fyle); 

—  write  in  the  altered  crossref  list 

DELETErCROSSRSl"'); 
Create(fyle,"CROSSREE",Write_Cnly) ; 

mark  :=  first; 

WHILE   mdric   /=   NULL   LCCP 

PUT  (f  yle,rrark.serial_dtg) ;    New_Line  (fyle) ; 
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mark    :=  mark. next; 
ENE  loop; 
CLCSE(fyle); 

—   Clean   up   pointers 
WHILE   first   /=   NULL    LCCP 
mark    :=  first; 
first    :=  rrark. next; 
Dispose(mark) ; 
ENE  loop; 
END   insert_dtg; 

success    :=   TP.Ui;    —   EEL5TE   old   AMP   files   on   a: 
ENE  if; 

ELSIE   action_is(erase)    THIN 

—  if   successful,    erases   current   workfile   and 

—  returns   false,    reselect   choice    for   action 
IP   NOT  u.l  .status  .transmitted    TEEN 

putxy(10,ie,"Conf irm^you   wish   to    erase    UNITRE?        & 
"serial        &   u .1 . status .curren t_serial ) ; 
putxy(13,17, 

(It    has    not    "been    logged   as    transmitted)    ); 
putxy(26, 18, "ENTER    (Y/N):"); 
getxy_ immediate (38, 18, key) ; 
IE    key  =   n  TEEN  —   do    not    erase 

success    :=   FALSE; 
ELSIF    key   =  y   TEEN 

—  erase   if    backup   data    is   available 

filename    :=    "B:UNIT"   &   u  .1 .status  .last_serial ; 
IE  valid_file(filename,    THEN 
program. workfile    :=    filename; 
ioad_file(filename) ; 
store  file("UNIT0«0") ; 
success    :=  THUS;  —   load   oartB 

ELSE 

terminate(  file_error,  filenaiTe  )  ; 
END   if; 
ELSE 

error(€);  —   incorrect    input 

success    :=   FALSE; 
ENE  if; 
ELSE  —   file   has   been   transmitted 

error(8);  —   initiate   new 

success    :=   FALSE; 

ini  if; 

ELSIE  action_is(verify)  TEEN 
outxy(0,l€, 

"ENTER    the   AS_0F  verification    serial:    '  K 

putxy(9, 17, "(000  to  restart)")? 
serial  :=  getxy_digits( 3? ,16 ,3) ; 
IF  number  =  2   TEEN 
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success    :=   FALSE;  —  restart    on   000 

ILSI 

fllenaire    :=   "3:UNIT"   S.    serial; 
II   valid_me(filename)    THEN 

success"    :=  TRUE; 

program  .workfi  le    :=   fllenaire; 
IISI 

error(2);  — required   file   not   present 

success    :=  FALSI; 
END  if; 
jni  IE; 

IF    success   TEIN 

j.ine_2ount    :=   l;  --   in   printio 

set   f  crrrat  (msg); 

putxy(e,20, blankln) ; 

put xy( 35, 20 t "Ready   Printer   and    <ENTER>")J 

£etxy_imirediate(59,20,key); 
ENI  if; 

ELSIE  dction_is(quit)  TEEN 

teririaate(norrraltnull_string)i 

ELSE  —   no   action    required 

success     :=   FALSE; 
ENI   if; 

INC   process   action; 


PROCEE-JBI   choose_areas  (area   is:    IN   OUT  area_state)    IS 

—  menu    selection   of    the   UNIT3EP   situation 

—  area   categories 

PROCIIURZ   initialize_area    IS 
sia  IN 

FOB    1    IN    areas    RANGE    pers.. local    LOOP 

area_is(i)    :=   FALSE; 
SNE  loop; 
ENE    initialize_area; 

PF.OCEIURE   arearrask   IS 

—  draws    the   area    screen 
BEGIN 

torderJ 

putxy(  68,1, "SERIAL  "&  u .  1 . st atus  . curren t_seriai  ) ; 

putxy(0,3,  'UNITEIP  SITUATION  MENU"); 

putxy(9,5,"(  )  -0-  Modify  Local  Information"); 

putxy(9,7,"(  )  -1-  Personnel  Status"); 

putxy(S,S,  (  )  -2-  Administrative  Status"); 
putxy(9,9, 
"(  )  -3-   Unit  Combat  Readiness  Assessment  ); 
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putxy(9,10fft(    )    -4-     Aircraft    and    Crews   Status"); 
putxy(S,llfw{    }   -5-     tfajor  Equipment   Status"); 
putxy(9,12,"(    )    ~6~     Special    Capabilities    Status"); 
putxy (9,13, 

"  (    )    -7-      Increased    Iefense  Readiness    Status"); 
putxy  (9  »15tf"  (    )    -8-      Reserve   Augmentation    Status"); 
putxy(9,16,"  (    )    -9-     Type   Corrrander   Reports"); 
putxy(15, 20, "ENTER   <X>   in   desired    report   area(s)"); 
INI   arearrask; 

BIGIN 

I0CF 

ini  tialize_area,* 
areairask; 

area_is( local)    :-   mark(10,5)J 
area~is(pers )    :-  ir,ark(10,7) » 
area_is(adirin)    :=   irark(  12  ,8  ) ; 
area_is(coinbat )     :=   mar*(10,9); 
area_is(<*ir )    :=  rrrtrk ( 12J  ,10) ; 
area_is(equip)    :=   mark( 10 , 11) J 
area~is ( specap }    :«  n*ark(10,12) ; 
area_is(defense)    :=  F&rk{ 12, 13 ) ; 
area   is(reserve)    :■=  if!ark(10,15) ; 
area~is(  tycoir)    :=  mark(12,16); 
II    area_is  (pers.)    OR   area_i  s(corrbat )    CR 
area_i s( eouip;    OR   area_is (specap )   CR 
area   is(defense)    OR   area_is( reserve) 
CR  area_is(tycoirO    TEEN 
outxy(2 ,20 , 
SELECTEE   AREA    NOT    IMPLEMENTS!    -   CFOCSE   ONLY: 
"LOCAL, ADMINISTRATIVE   and/or    AIR"); 
getxy_irrr?,edlate(  78  ,22  ,  key  ) ; 
ELSE 

putxy (2,20, tlankln) ; 
outxy(0,20, 

"<ENTER>   to    continue,    ENTER    <X>    to    reselect:    "); 
reselect    :=   rra  r  fc  (  44 , 2  0  ) » 
EXIT  VEIN    NOT   reselect; 

ini  ie; 
ine  iccp; 

ENI   choose   areas; 


BEGIN      —   rrain   body 
load_status ; 

—   operations    required    by    status 
15   proerarr .  init  ial_entry   TEEN 
check_reauired_f lies ; 

--#   initial    test   data 
— #  open_initial_test(u.l.status.current_serial); 

signon; 
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program .initial_entry    :=   FALSI; 
ELSE 
— #  open   test;  — #   intermediate    test   datd 

load  fi!e("UNIT000") ; 

END  if; 

action:  ICOP 

ch oose_ action (actio n_ Is ); 
procesi_action(action_is, success); 

—  required  file  operations 
EXIT  WHIN  success; 

EM  LCCF  action; 

IE  action_is(m,odify)  CR  actional s( draft )  TBEN 

choose_Ireas(area_is); 
ENE  if; 

—  direct  program  flow  to  next  required  module 
— #  close_test; 

store  status; 

putxy  130,22,  STANLY ")J 

IE  action_is(log)  THIN 

—  reset  local  iters  in  UNITZ02A 
Sinple  Chain ("UNITREF1.COM"); 

ELSIE  action  is  (erase)  TEEN 

—  recall/reset  iterrs  in  UNIT000I.  UNIT000A  reset 

—  in  prccess_action 
Simple_Chain("TJNITREP2.  COM")  ; 

ELS  IF  action  ls'print)  C?  actior.  is(draft) 

CP  action  is(verify)  03  action  is(neww)  THIN 
Sirrple  Chain ("UNITBEP1.COM")  ; 
ELSIE  action  is(irodify)  ANE 

(NCT  u.l. change  OR  area_is( local)  )  THEN 

--  At  least  one  entry  into  urlocal  is 
—  reauired  to  set  message  items 
Simple  Chain(  "UNITRSrl.  COM."  ) ; 
ELSIE  action  is 'modify)  ANT  area  is(adirin)  TEEN 

Simple_Chrtln( "UNITHIP2.COM'  ) J 
ELSIF  action  is  (modify)  AND  area  is(air)  THEN 

Simple  Chain( "UNITREP3.COM" ) ; 
ENE  IE; 
Simple_Chain("UNITREP.COM") ;  —  restart 

ENT  unitrep; 
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WITH  chainlio, 

consio ,printio , 
filerA, 
— #       urtest, 
urglobal , 
urlocal ; 
PACKAGE  ECIT  unitrepl  IS 
DSI  chainlio, 

consio, printlo , 
filerA, 
— #      urtest, 
urglohal  , 
urlocal ; 


—  JANUS  ADA  Library 


—  Frovides  processing  of  UNIT?!?  local 

—  information  and  program  control 


II 


"-IN 


— u 


\3 

load_statusJ 

II  program. print_trailer  THIN 

process _local( trailer); 

program. print_trailer  :=  FALSE; 

store_stdtus; 

Simple    ChainC'UNITBIP.CCP")  ; 
ILSII   action_is(log)    TEIN 

process_local (header) ; 

store    f ile(nrogram.workflle ) ; 

Slmple_Chain("UNITREP2.C0M"); 
ILSII   action_is (print  )    C5   action_i s (verify )    THEN 

process_local( header) ; 

programTprint_trailer    :=   TEUEJ 

store   status;  --  line  count 

Simple   Chain ("UNITBEP2. COM"  ) ; 
ILSII   <*ction_is  (draft )    TEIN 

process_local( header) ; 

program. print_trailer  :=  TRUE; 

II  area_is(admin )  or  arsa_is(air)  TEIN 
store  status*  —  line  count 

Simple  Chain("UNITRIP2.C0tt"); 

ILSI 

process_local(trailer); 
program. print  trailer  :=  IALSE; 
Simple_Chain(wUNlT3?IP.CCr'  ); 
INI  II ; 
ILSII  action_is(neww)  TEIN 
proce ss_loc a 1 (header ) ; 
store_file( "UNIT000") ; 
Simole  Chain(  "UNITBIP2.  COM"  )', 
ILSII  action_is(mcdify)  TEIN 
open_test ; 
process_local( header) ; 
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— #      close_test; 

store_file("UNIT000") ; 
store  status; 

putxyT30,22f"STANm ")  J 

IF   area_is(ddrin)    TEEN 

Siirple    Chain("UNITREP2.C0P") ; 
ELSIE   area  ls(air)   TEEN 

Siirple_Chain("UNITREP3.C0P/")  ; 
ELSE 

Single   Chain("UNITREP.CCM"); 
ENI    IE; 

—  erase  controlled  in  unit  rep  .coir  (.pkg) 
ENT  IE; 
Sli*ple_Chain("UNITREF.CCI"");  --  restart 

END  unitrepi; 
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WITH  chainlit,  —  JANUS /ADA  librdry 

consio  ,prlntio , 
filerB, 

urglo Dal , 
— #       urtest, 
unitrepB , 
uradmin ,urair; 
PACKAGE  BOEY  vnitreD2  IS 
OSI  chainlio, 

consio  ,  ori.it  io  ♦ 
filerB, 
urglc tdl , 
— *  urtest, 

unit  rep 3 f 
jradrrin  , ura  ir ; 

--  provides  processing  of  UNITEZF  administrative  and 

—  air  situation  reports  (excluding  air  modify?  and 

—  program  control 

3EGIN 

load_status; 

IF  act ion_is( verify }  OH  act ion_is (print )  TEEN 
process_ ad ministrative; 
process~air ; 

store  status?  --  for  line_count 

Simple  Chainf'UNITRFPl.  COP");      —  print  trailer 
ILSII  action  is(draft)  TEEN 
IF  area_isTddmin)  TEZN 

orocess_administrative; 
ENE  IF; 
IF  drea_is(dir)  THIN 

orocess  air; 
INE  IF; 

store_status;  --  for  line_count 

Simole  Chaii ( "UNITPEF1. COK' ) ;      —  print_trailer 
ILSII  acticn_is(neww)  THIN 
process_administrative; 
process  airj 
store  file(  'UNITC00") ; 

Simple_Chaii("UNITREP.CQM");      —  Pile  zeroed 
ELSIF  action_is(rrodify)  TEEN 
— #      open_test; 

IF  area_is(admin)    THEN 
process  administrative; 

store_file("UNIT000") ;      —   save    new  data 
ENE   if; 

IF   area_is(air)    TEEN 
— *  close   test; 

pUtxy?35,22f"S?AtfEBT. "); 

Simple_Chain '"UUTREP3.  COfO  ;         —    process  ac_ty?e 
INE  if; 
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— #  close_test;  --#   rerro^e    frorr  production 

putiy (35722 f"STANr3Y. ...."); 
Sirrple  Chain ("UNITHIP.COM"  )  ; 

ELSI5    action_is(log)    THIN 

process _adirinist  rati ve; 

process_air > 

store   file( program. workfile ) ; 

Sirrple  Chain ("UNITBIP. COM")  ; 
IIS  1 5   action   ls( erase)    THIN 

store_file7"UNIT000") ;    —  previously   loaded    old   file 

Sirrple   Chainf'UNTTBFP.CCM"  )  5 

eni  if;  " 

Sirnple_Chain(  "UNITR2P.COM")  J    —   restart 
ENI   unitrep2; 
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WITH  chainlito,  —  JANUS /ArA  litrary 

consio ,printio , 
urglobal , 
filerB, 

— #       urtest, 
urai  rl , 
unitrepEJ 
PACKAGE  ECIY  unitrep3  IS 
USI  chainlil), 

consi  o ,printio , 
urglo fcal , 
?iler3, 
— #      urtest, 
urairl, 
unitrepB ; 

—  provides  processing  of  UNITREP  <air  situatic 

—  reports  when  actionals  (irodify)  and  pro^rdfr 

—  control  to  return  to  main  nodule 

BEGIN 

load_status? 
— #    open_test; 

process_ac_type; 
— *    close_test; 

store_file("UNIT0K0" ); 

putxy(35t22,"sTAN!E3Y ")? 

Sirple  ChainC'UNITRZP.COM"); 
INI  unitrep3; 
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PACKAGE  filerA  IS 

—  normal  file  handling  operations  for  the  'a'  ciata 

—  structure 

FUNCTION   valid_file(fllenarre:    STRING)    RETURN   BOOLEAN; 

—  checkl  for  valid   external   files 

TYPE  reason_code   IS    (norrral  ,f  ile  error); 
PPOCIDUPI    terminate(reason:    IN    reason_code; 

filename:    IN   STRING) ; 

—  exit   point    for    the  UNITREF   prograrr 

PROCEDURE   load_file(filenaire:    IN   STRING); 

—  loads    a  particular   unitrep  data    set 

PPOCEPUEE    st:>re_file(filenarr>e:    IN   STRING); 

—  stores   a   particular   unitrep  data    set 

PROCEIURE   load_status; 

—  loads'and   perforrrs   operations   rea.uired    by    status 

PROCIIORI  store_status; 

—  stores  the  status  state 

INT  filerAJ 
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WITH  io,util, strlib.   — JANUS/ADA  library 
consio,pri  ntlo , 
urglobal, 
— n  urtest, 

unitrepA, 
urlocalA ; 
PACKAGE  IOIY  filerA  IS 
DSI  io; 

US  I  printio;  —  forrrat_is 

DSI  urglobal;         — action_i  s,<area_i  s  ,f  orma  t_i  s 
USE  unitrepA;         — u,data  types 
USE  urlocalA; 

—  normal  file  Handling  operations  for  the  'A'  data 

—  structure 

fyle:  FILE; 

JUNCTION  valid  f  ile  ( f  ilenarre :  STRING)  RETURN  BOOLEAN  IS 
USE  io;      --  Open, CLOSE, ICresult 
USE  strlib;  —  Extract 

—  opens  FILENAME  to  checK:  presence.  If  FILENAME 

—  not  present,  returns  FALSE  otherwise  closes 

—  FILENAME  and  returns  TRUE. 
BEGIN 

—  A  unitrep  file 
buffer  :=  filename; 

IF  ((Extract(buffer,l ,4)  =  "UNIT")  0? 
(Extrdct(buffer,l,4)  =  "E:UN")) 
ANE  NOT 
((filename  =  "UNITR1P1.COM")  OR 
(filename  =  "UNITHEP2.COM")  CR 
(filename  =  "UNITREP3.COM"))      TEEN 

—  due  to  check_required_f lies 
buffer  :=  buffer  S.  "a"; 

eni  if; 

Open( fyle, buffer ,Read_Only) ; 

IF  ICresult  =  255  TEEN    —  file  does  not  exist 

RETURN  FALSE? 
ELSE 

CLCSE(fyle); 

RETURN  TRUE; 
FNI  if; 
ENI  valid_file; 

PRCCEEURE    terminate (reason  :    IN    reason_code; 

filename:    IN   STRING)    IS 
USE   con  si oj 

USE    strlib;  —   Extract 

USE   io.utii;  —HALT 

— *  USE  urtest;  —  test_file 

—  This   urocedure    is    the    exit   point   of    the   program 
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—  reason  can  be  either  NORMAL  or  for  FILI  ZFRCR 
BIGIN 

—  save  current  unitrep  data 
store_file(  "ITNIT000") ; 
IF  reason  =  norrral  TEEN 
— #        close_final_test ; 

program. initial_entry  :=  TRUE; 
store  status; 
Halt;"" 
ELSE      --  reason  is  file  error 
buffer  :=  filename; 

I?  (Extract  (buffer, 1,4)  =  "UNIT")  AM  NOT 
((filename  =  "  UK  IT  HEP  1  .COM")  CP. 
(filename  =  "UNITF.ZF2.C0r'")  )    TEEN 
--  in  check_required  files 
tuffer  :=  buffer  &  "a"; 
5NL  if; 

--  initial  file  atort 
— #      IE  NOT  IS_OPEN(test_file)  THEN 
— *       Cpen(test_file,"TEST.A£R"t'Vrite_Only) ; 

— n  INI  if; 

--#  PUT(test  file, 

— *  '"FILE  ERROR  TERMINATION  -  "  S,  filename); 

--#  NIH  LINK test_file) ;  NEW  LIN|( test  file); 

— #  CLCSI( test_file) ; 

clear  screen? 

pv:tx;7(e,3,"FILE  ERROR  TERMINATION,"); 
putxy(Z, 5  .buffer  S.   is  required    & 

"but  not  present  on  the  assignee  disk"); 
pytxy (0  ,6 , 

'Copy  the  required  file  to  the  proper  disk."); 
Halt? 
INF  if; 
ENI  terminate; 

PROCEDURE  load_file (filename:  IN  STRING)  IS 

—  loads  a  particular  unitrep  data  set 
BEGIN 

buffer  :=  filename  &  "a"; 
Open(fyle, buffer ,Read_Only ) ; 
Read(fyle,u); 
CLCSEffyle); 
INI  load_file; 

PRCCETURE  store_flle(filename:  IN  STRING)  IS 

—  stores  a  particular  unitrep  lata  set 
EEGIN 

buffer  :=  filename  &  "a"; 
LELETE(buffer); 
Create(fyle,buf f er  ,  Writ e_ Only ) ; 
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Write(fyle,u) ? 

CLOSE (fyle); 
INI   stcre_file; 

PROCEDURE   load_status    IS 

—  loads    end   perform*    operations   reauired    by    status 
BEGIN 

Open (fyle, "STATUS", Readonly) ; 

Read(fyle, program) ; 
CICSKfyle); 

acticn_is    :=   program,  current _action; 
area_is    :=   orograrr .  curren  t_area  ; 
format_is    :=  program. current   format; 
II    format_is (msg)    TBIN 

set_f  orrrat  (msg) ; 
IISIF   format_is(ocr)    THIN 

set_format  (ocr) ; 
51 SI  --   format    is    text 

set_f crrrat  (text ); 

im  if; 

line   count    :=   x>ro  gram. print  3.  ng_line> 
II  action  is(log)    THEN 

lead  file{"UNIT000"); 
ILSI 

load  file (program.wor&file) ; 
ini  n; 

INI  load_status; 

PROCIDUR1  store_status  IS 

—  stores  the  status  statE 
BEGIN 

—  .unit  set  in  urlocal,  process  local  infrequent 

—  .ini tial_entry  set  in  unitrep  (quit)  and 

--  rain  body 

—  .  print_trailer  set  in  unitrep  rrain  body 
program. message_transmi tted  :=  u.l. status. transmitted 
prograir.current._dct  ion  :=  action_is; 

—  set  in  unitrep.choose_action 
program. current_area  :-  area_isJ 

—  set  in  uni  trep  .choose_cared 
program. current_format  :=  format_is» 

—  set  in  printio . set_f ormat 
program  .print ing_line  :=  line_count; 

—  set  in  printio. put_printer 

—  .workfile  set  in  unitrep. choose  action 

iilitiC'status"); 

Creat e( fyle  ."STATUS", Writ e_Cnly) J 
Wri te( fyle .urogram) ; 
CLCSI(fyle); 
ENI  store  status; 
INE  filerA; 
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PACKAGE  filer5  IS 

—  rorrral  file  handling  operations  for  the  '3'  data 

—  structure 

FUNCTION  valid_file(filename:  STRING)  RETURN  30CLIAM 

—  checks  for  valid  external  files 

TTPI  reason_code  IS  (normal ,file_error) ; 
PROCirUHI  teririndte(reason:  IN  reason_code; 

filename:  IN  STRING) ; 

—  exit  point  for  the  UNITREP  program 

PRCCITUPl  load_file(filename:  IN  STRING); 

—  loads  a  particular  unitrep  data  set 

PROCEEURI  store._file(filenarre:  IN  STRING); 

—  stores  a  particular  unitrep  data  set 

PRCCZIURI  load_statusJ 

—  loads  and  performs  operations  required  by  status 

PROCirUPE  store_status» 

—  stores  the  status  stdte 

ENI  filer3; 
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WITH  io  ,util  ,strlib  ,      —  JANUS/AIA   library 
consio  , print  io  , 
urglobal , 
— #  urtest, 

uni  trepE, 
uradirinB,urairB; 
PACKAGE   3CIY    filer!    IS 
US  I    io; 

USE   printio;  —    format_is 

USE   urglotai;  —  action_is ,area_is 

USE   unitrepB;  — u,data   types 

OSE   uradirinE  ,urdi  rB ; 

—  norrral    file   handling   operations    for    the    '3'   data 

—  structure 

fyle:   FIIEJ 


JUNCTION  valid  f ile( filename:  STHING)  RETURN  BOOLEAN  IS 
USE  io;     --  Open, CLOSE, IOresult 
USE  strlib;  —  Extract 

—  opens  FILENAME  to  check:  presence.  If  FILENAME 

—  not  uresent,  returns  FALSE  otherwise  closes 
--  FILNAPE  and  returns  TRUE 

BEGIN 

—  B  unitrep  file 
buffer  :=  filename; 

—  check  for  UNITxxx3  files 
IE  ((Extract (buffer, 1,4)  =  "UNIT")  OR 

(Fxtract(buf fer,l,4)  =  "2:UN"))  THIN 

buffer  :=  buffer  &  "s'"; 
INI  if; 

Open(fyle, buffer, P.ead_Only)  ; 
IE  ICresult  =  255  TEEN    —  file  does  not  exist 

HETUPN  FALSE; 
ELSE 

CLCSE(fyle); 

RETURN    TRUE; 
ENE    IE,* 
ENL    valid    file; 


FROCETUPE    terminate (reason  :    IN    reason_code; 

filenaire:    IN   STRING)    IS 
USE   consio; 

USE    io,utii;  —  Halt 

— ft  USE   urtest;  —  test_file 

—  This   procedure   is    the   exit   point    of    the  orogranr 

—  reason   can   be   either    NORMAL   or    for   FILE_IRRCR 
BEGIN 
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—  Sotve  current  unitrep  date 
store_file("UNIT000"); 
II  reason  =  normal  TEEN 
— #        close_f inal_test ; 
EaltJ 
ELSE      —  reason  is  file  error 

--  check_required_f iles  abort 
— #      II  NOT  IS  OPIN(test  file)  TEIN 
— #  Cpen(test  file , "TEST. A3R"  ,Write_Cnly  ) ; 

— #    ini  it; 

— *  FUTCtest  file, 

— #  "IIII   EHROS   TERMINATION   -       5.   filename); 

— n  MW_LINE(test_file)  ;    NIW  LINK  test_f  ile  ) ; 

— #  CICSE(test_file) ; 

clear_screen ; 

putxy(£,3."HLE  ERROR ^TEB^I NATION")  ; 

putxy (0,5 , filename  &    is  required   & 

"tut  not  present  on  the  assigned  disk"); 
putxy(0,6, 

"Copy  the  required  file  to  the  proper  disk."); 
Bait; 
ENI  ii; 
INI  terminate; 

PPOCEIUPE  load  file  (filename :  IN  STRING)  IS 

—  loads  a  particular  unitrep  data  set 
PIG  IN 

Puffer  :=  filename  &  "3"; 
Open ( fyle, hvf fer ,Read_0nly) ; 
Read(fyle,u); 
CLOSI(fyle); 
ENI  load_flle; 

FECCEIUPI  stcre_file(filename :  IN  STRING)  IS 

—  stores  a  particular  unitrep  data  set 
BEGIN 

"buffer  :=  filename  &  "B"; 
lEIITE(buffer); 

Createffyle,  buffer ,Write_Cnly) ; 
Writ e( fyle, u); 
CLOSE (fyle); 
ENI   store_file; 

PROCELTJRE    load_statns    IS 

—  loads    and   oerforms   operations   required   "by   status 
BEGIN 

Openf fyl e," STATUS ",Read_Cnly) ; 

Read ( fyle  .program) ; 

CLCSI(fyle); 

acticn_is  :=  program. current_action; 
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area_ 
forma 
II 

Eli; 

r. 

ELS 

1NL: 
line 
TF  NO 

ter 
ENE  I 
IF  ac 

loa 
ELSE 

loa 
INI  E 

INI  10  3 


is  :=  program.  curre.nt_area; 

t  is  :=  program. current  format; 

forrrat_is(msg)  TEFN 

et  f  ormat  (msg) ; 

IF  format  is  (ocr)  TEIN 

et_f orrratTocr) ; 

E    —  format  is  text 

et_f ormat ( text ) ; 

if; 

court    :=   program .printing_line ; 
T   valid_file("U^:IT00^■, )    THIN 
rrinate'f  ile_error, "UNITetftf"  )  J    - 

f; 

tion  is(log)    TFFN 
a_file(  UNIT000"); 

d  file (prograir.workf lie)  ; 

fT 

d  status; 


-  check  UNIT-220E 


FPCCiruPE  stcre_status  IS 

—  stores  the  status  state 


process 
uni  treo 


EFSIN 

—  .unit  set  in  urlocal, 

—  . initial_entry  set  in 

—  and  main  bod'y 

—  .print  trailer  set  in  unitrep  main 

—  .message_transmi tted  set  by  fileri 
program. current  _act ion  :=  action_is; 

—  set  in  unitrep. choose_act icn 
program. current_area  :=  area_is»* 

—  set  in  unit  rep . chocse_area 
program  . current _format  :=  format_isJ 

—  set  in  printio.  set_f  orn-at 
program. printing_line  :=  line_eount» 

—  set  in  printio .put_printer 

—  .workfile  set 
EZIETK  "status"); 
Create (fyle , "STATUS", Writ e_Cnly)  ; 
Write(fyle, urogram ) ; 
CLOSI(fyle) ; 

ENE  store  status; 


lccal_  in  frequent 
(auit") 


tody 


in  uni trep. choose_act ion 


ENI  filers; 
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VITE  unitrepA,urlocaIA» 
PACKAGE  urlocal  IS 

DSI  urn  trepA turlocaIA ) 

—  This  package  urovides  ICCAL  routines  for 

—  UNITRIP  construction 

TYPE  rsg   part  IS  (header, trdiler) J 
PPOCEru?!  process_local(part:  IN  rrsg_part); 

INI  urlocal; 
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— JANUS /ATA  libraries 


WITE  io,strllb, 

consio, printio , 
urutil , 

urgl  tl  ,urglobal , 
urlocalA,urlocall, 
unitrepA; 
PACKAGE  KEY  urlocal  IS 
USE  consio,printio , 
urutil , 

urgltl ,urglobal , 
urlocalA,urlocall, 
unitrepA; 


—  Tills   package  provides    ICCAI    routines   for 

—  UNITREP  construction 

—  lata  sets  MSG ID/UN  ITU ,  OPEB, 

—  RMKS  are  supported  nere. 

—  Message  information  and  DCLAS 

—  urlocall 


EXER,  POSIT, 
supported  in 


PBOC1IDHI  process_local(part:  IN  rrsg_part)  IS 
USE  strlio;  — Str  to  Int,liit  to_ttr 
USE  lot  — Open, CICSE, GITALIN! 


FPOCEIUPS  process_locai_rT!isc  IS 

USE  strllt;  --  Extract 


FROCELURE  localrrask_misc 
EEGIN 

localrrask; 


IS 


putxy 
putxy 

putxy 
putxy 
putxy 
putxy 
putxy 
putxy 
putxy 
putxy 
putxy 
putxy 

putxy 
putxy 
"( 

tutxy 

putxy 


30,3tt    -MISCILLANEOJS-    ); 
0,4,>t(f%)  -la-   Operation    Underway") 

lf5t"|")f    putxy (12, 5, "Operation   Codewo 
4?,5j"Plan    Originator  and    Number"), 

i,e,'Mor"); 

6  ,6  ,  " ; 

4£,eA — ); 

0,8,    (    )             -lb-   Exercise    Underway    ); 
1,9,"[");    put  xy  (30,9,  "Exercise    Nlcknam 
1,10,'  or"); 
8,10,    


1,11, 


"  i  " 


); 


0,12, 

-lc-  Operation/Exercise  Terminate 
2,14, 

-2-  Position  -  Required  for  ship/ 
10,15, 


rd  ); 

); 

e"); 

); 

d"); 
sub") ; 


"Location  (or  EXErPT)   or 


LAT/LONG 
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rutxy(57,15,"As  Of  ETG" ) J 
putxy(10,16, 

" ddrrmDC-dddmmLC"'  ; 

putxy(5£,iet"ddhhinr.ZfWyy"); 
putxy(0,ie,"(  )     -3-  Remarks  :") ; 
FNI  localmask  misc; 


PROCEIUFE  fill_local_rrisc  IS 
5IGIN 

localmask_misc; 

IF  u.l. operation. underway  TBZN 

putxy  (4:  ,4  ,  star  ) ; 

putxy{6, 6, u. l.o perat ion. codeword ) ; 

putxy (48  ,6  ,u. 1 . op  eration.pl an_o rg_num ser )  ; 
5LSIF  n  .1 .exercise. underway  THIN 

putxy (4  ,3  ,star ) ; 

putxy (8, 10, u.l.  exercise. nickname) ; 
ELSE 

null; 

eni  if; 

IF  NOT  u.l .position  ,lat_long  THEN 

putxy (10, 1.6,  u.l. posit ion. present  location); 

ELSE 

putxy (33, 16, u.l. posit ion. present _1 oca t ion) J 

ini  if; 

putxy ( 5£, 16, u.l. posit ion. dtg) ; 

IF   u. 1. posit  ion. change   TEEN 
putxy(4,14, star) ; 
IF   u.l  .position. arrpn. change    THEN 

nutxy(e,14,a_rrark) ; 
END    IF; 

fne  if; 

IF   u.l . remarks .change   THEN 

cutxy ^4,ie,stdr ) ; 

x>utxy(21,18,"CN    THIS    FAGl")? 
ELSE 

putxy(21,18,"N0NE")  ; 
ENE   if; 
5NI    fill_iocal_rrisc; 

PROCELURE    p"Ocess_remdrks    IS 

—   -processes    rerarss    sets 


:EGIN 
u  .1  .remarks .number_of_pdges    :=   2', 
FOR   number    IN   1.  ,rrax_nrks_pages   LCCP 

prccess_comment ("RMKS"  &  Int_to_Str(number) , 

u  .1 . remarks  .page (number ) ) ; 
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IF  NCT  u .1 .remarks. page(number )  .change  TFEN 

EXIT;     —  last  page  not  modified 
ELSIF  u  .1  .remarks  .page(number)  . number_of_lir.es  < 

max_comment  TEEN 
u .1 .remarks .number_of_pages  :=  number; 
HIT;     —  last  page  not  completely  used 
ELSE 

u .1 .remarks .number  of_p_ges  :=  number; 
EN!  IF; 
ZNT  loop; 
II  u .1 .remarks .number_of_pages  >  8  TEEN 

u. 1. remarks .change  :=  TRUE; 
ELSE 

u .1 .remarks .change  :=  FALSE; 
SNT  if; 
ENE  prccess_remarks; 

2EGIN 
LCCF 

flll_local_misc; 

— oper_ticn/exercise 

Fodif y_oper_exer :  LOOP 

IF  NCT  u  .1  .exercise .underway  THEN 
LOO? 

putxyd  ,4,  blank) ; 
getxy_immediate( 1 ,4  ,key ) ; 
CASE  key  IS 
WHEN  x! tab  => 

clear_field(e,6,32)  ; 

clecr  field(48,e,23) ; 

getxyTe,6, buffer, 32)  ; 

IF  buffer  =  null_string  TBZN 

u.l. operation. underway  :=  FALSE; 
ELSE 

u  .1 .operation . codeword  :=  buffer; 
u. 1. opera tion. underway  :=  TRUE; 
putxy (4  ,4  ,  star) ; 

getxy (4£, e, 

u. 1. operation. plan_ or g_ number, 23); 

EXIT  mcdify_oper_exer; 

FKE  if; 
WHEN  a  => 

error(29);   —  ampn  not  allowed 
WFEN  no_input ■  space  => 

exit; 

WHEN  ques  => 

help("OPER/EXER")  ; 

fill_local_misc; 
WEEN  OTEERS  => 

error(e);    — incorrect  input 
ENT  case; 
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ini  loop; 
ini  ii; 

IF   NCT  u.l. operation. underway  TFEN 
LOOP 

putxyd  ,8,  blank) ; 
getxy_irnrediate(l  ,8,key ) ; 
CASE   key   IS 
VEEN   x,' tab   => 

clear_field(8, 10,62) ; 

getxy (8, 1£, buffer, 62); 

IE  buffer  ■  null_string  THEN 

u.l  .exercise .underway  :=  EALSE; 

exit; 

ELSE 

u.l .exercise. nickname  :=  buffer; 
u  .1 .exercise. underway  :=  TRUE; 
putxy(4,8,star) ; 
EXIT  modify  oper_exer; 
ENL  IE; 
WEEN  a  => 

error(2S);   —  ampn  not  allowed 
WEEN  no_input ! space  -> 

exit; 

WEEN  ques  => 

help("OPER/EXEE"); 
fill_local_rri  sc; 
WHEN  OTEEHS  => 

error(6);  —  incorrect  input 

ENL  case; 
ENI  LOOP; 
ENL  if; 

LOOP 

putxy (1,12, blank) ; 
getxy_irrrrediate(l  ,12,  key)  ; 
CASE   key   IS 
WEEN   x,1  tab    => 

u  .1  .operation  .underway    :=   EALSE; 
T3Utxy(4,4,blank) ; 
cledr_field(6,6,32); 
clear_field(48,6,23)  ; 
u.l. exercise. underway    :=   FALSE; 
putxy(4,8, blank) ; 
clear_field(8,12,62) ; 
EXIT   rrodify_oper_exer; 
WEEN   a   => 

error(29);  —   arrpn    not    allowed 

WPEN   no_input J  space    => 

EXIT  rrodify_oper_exer; 
WHEN   ques 


_   X 
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help("CPER/EXER")J 

fill    local_rr:isc; 
'WHEN    OTHERS    => 

error(6);  —   incorrect    input 

INI   case; 
en i  loop; 

END   LOCP  moiify_oper_exer; 

rrodify_position :    LOOP 
putxy( 1,14, blank) ; 

—  position    is   required   for   ship/sut,    only 
--  when   changed    for    others 
IF    ({program. unit    IN    ship. .submarine) 

AND   NOT    (u.  1. position. change) )    THEN 
key    :=  zi 
ELSE 

get  zy_irired  late  (1 ,  14, Key  )  ; 

en:  if; 

CASE  Key  IS 
WEEN  z| tdt  => 

putxy  (4, 14, Star ) ; 

clear_field (10,16,22); 

putxj  (33,16,"ddmrrIC-dddmrrrc")  ; 

putzj  (55,16,"ddhhrrrcZMMtfyy"  ) ; 

getxy(10,16, 

u.l .posit ion. pre sen t_locat ion ,20) ; 
u  .1  .position. change  :=  TRUE? 
IE  u.l. position. present  location  =  "EXEMPT" 

THEN 
NULL;  —  nc  further  action  required 
EISI?  u. 1. posit  ion. present _location  = 

null_string  THEN 
—  get  lat/long 
u. 1. -position, la t_long  :=  TRUE; 
LOOP" 

getzy(3£,16, 

u.l. position. pres en t_location, 14); 
verify_lat_long( 

u.l.posi tl on .present _locat ion, success ) > 
EXIT  WFEN  success; 
putxy(35, 1€, 

u.l. position. p re sent_location)» 
ENI  loop; 

—  get  asof  dtg 

LOOP 

ge txy (55, 16, u.l. position. dtg, 12); 

verify_dts(u.l. posit  ion. dtg, success); 

EXIT  VEEN " success; 

outxy(55,ie,u.l.positicn.atg) » 
ENI  loop; 
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ELSE 

u.l. position. Iat_long  :=  FALSE; 

— "get  asof  dtg 
LOO? 

getxy(55, 16 ,u  .1. position. dtg, 12); 

verify_dtg(u.l,pcs:.tion.dtg, success); 
EXIT  WEEN  success; 
putxy(55, 16 ,u.l. posit  ion. dt g) J 
END  LCCP; 
ENE  if; 
WEEN  a  => 

IE  u.l .position  .change  TEEN 
process_coirrent(  "POS  IT" , 

u  .1. posit ion. ampn) ; 
f ill_locdl_ri  sc ; 
ELSE 

error(27);    —  set  not  changed 
END  if; 
WEEN  no_input j space  =  > 
ETIT  modify  position; 
WHEN  aues  => 
neipC'POSiT") ; 

fili_local_tri  so? 

WEEN  OTHERS  => 

error (28);      x-  allowable  inputs 

enl  case; 
EM  LOG?  modify ^position; 

—  remarks 
IE  mark(l,18)  THEM 
process_rerrarks  ; 
f  ill_local_rrisc ; 

ene  if; 

uutxy(0  ,20,blankln) ; 

putxy(0,20,"<INTER>   tc   continue,    ENTER   <X>        & 

"to   Res elect :" ) ; 
reselect    :=  mark-^  44  ,22  ) » 
EXIT  WHEN    NOT   res  el  set; 
ENE   LCCP; 
ENI   urocess    local   rrisc; 


PROCIIUHE    process_local_inf requent    IS 

PRCCErUPE   localrrask_infrequent    IS 
EiGIN 

localrresk; 

putxv(24,3,"-INFRFCUENTLY    CFANGEE    ITEKS-    )» 

Futxy(0,5,'(    )    -1-   Unit    Type    ); 
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putxy(8,e,"(    )Ship        (    )SuDmarine        (    )Air 
",(    )Shore        (    )Other"); 

putxy(2,9,    (    )    -2-   Unit    Identification   -        k 
"OPNAVINSl    3503.1    APP.    C"); 

putxy  (8 ,10, || ' ")» 

putxy(ef12ffi(  )  -3-  Last  Serial "); 

putxy(0,15,t"(  )   -4-  Message  to  be  Prepared 

"as  Feeder:"); 
putxy(12,ie,"(UNITII  vice  MSGIT  data  set)"); 
ENE  localmask_inf requent; 

PBOCirURI  fill_local_infrequent  IS 
3EGIN 

looalmask_in frequent; 
CASE  program. unit  IS 

WHIN  ship  =>  putxy(9,e,x_rrark) ; 

WHEN  submarine  =>  putxy  ( 19  ,6  ,x_  mark) ; 

WHEN  dir_unit  =>  putxy  (34, f  ,x_mark) ; 

WEIN  shore  =>  putxy(43,e,x_m.ark) ; 

WEEN  other  =>  putxy  (54,6,  x_rrark)  » 
ENT  case; 

putxy(8,10,u.l.status.unit_id) ; 
putxy(20,12,u.l.st<itus.iest_seriai); 
IE  u.l . status. feeder_report  THEN 

putxy  (4,5, 15, "TZS"); 

ELSE 

nutxyUS^S/'NO") ; 
ENE  IE; 
IE  u  .1  .status .ampn. change  TEEN 

putxy (4,15, a_mark) ; 
END  IE; 
EM  fill_local_infrequent ; 

3EGIN 
ICCP 

fill_local_infrequent; 

—  status. unit  type 
IF  mark(l,5)  THEN 
CASi  prograir.unit  IS 

WHEN  ship  =>  putxy(9,6, blank) ; 
WEEN  submarine  =>  putxy  ( 19  ,6  ,  blan>0  ; 
WPEN  air  unit  =>  putxy (34, 6, clank) ; 
WEEN  shore  =>  putxy (43  ,6 , blank) ; 
WEEN  other  =>  putxy (54,6 , blank) ; 
ENE  case; 
LOCP 

IE  mark(9,6)  THEN 

program. uni t  :=  ship;  EXIT; 
ELSIE  mark(19,e)  THEN 

program. unit  :=  submarine;  EXIT; 
ELSIF  mark(34,6)  TEEN 
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program. unit  :=  air_unit;  EXIT; 
ELSIF  mark(43,6)  TEEN 

•  program. unit  :=  shore;  EXIT; 
ELSIF  mark(54,6)  TEEN 

program. unit  :=  other;  EXIT; 
ELSI  error(lo);  —  must  choose  one 

ini  ie; 

ent  loop; 
snd  if; 

--status. unit_id en tification 
IE  markd  ,9)    TEEN 
LOOP 

clear_field(8,10,30); 
get xy(6f 10tu. 1. status. unit_id,  30) ; 
EXIT  WEEN   u.l. status. unit_id   /=   null_string; 
error(22);  —   required    item 

FNI  lccp; 
ENT   if; 
--    last    serial,    should    only    be   uses,    for    initial 

IE   mark'  1,12)    THEN 

--   warning  on    changing    serial 
error(23);    error(24); 
putxyd  ,12, blank) » 
IE  mark(l,12)    THEN 
clear_field(20,12,3); 
u.l . status . last_serial    := 

getxyrTdigits(20,12,3)  ; 
IF   u.l .status. ldst_serial    /=    "999"    TEEN 
u. 1. status. current    serial    :=    zero_pad(3, 
Int_to_Str(    Str_tc~Int( 
u .1 .status . last _serial )    + 
ELSE 

u .1  .stat us. cur rent   serial 
enl  if; 
zni  if; 
end  if; 

--   feeder   report   used   to   separate  addresses 
--  and   determine   UNITII   vice   PS Gil   set 
Todify   rasgid  unltid:    LOOP 
putxyd. leTblank)  ; 
getxy   immediated  ,15, key  ); 
CASE   key    IS 
WEEN    xltab   => 
LOOP 

putxy(45,15,"(Y/N)  ?  :  )J 
getxy_immedia  tei'  55, 15,  key); 
IF   key   =    'Y '    TEEN 

i] .  1.  status,  feeder^  report 
exit; 

ELSIF  key  =  'N'  THEN 

u. 1. status . feeder  report 


1  )  ); 

:=  "0  01 


=  T3UE; 


:=  FALSE; 
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exit; 

ELSE 

error(6);  —  incorrect  input 
ENE  if; 
ene  loop; 

VEIN  a  => 

—  this   set    always   submitted, 

—  no    check   for   change 
process_comment  ( "  I  TENT'*  ,u.l  .status.arnpn  ) ; 
fill_local_in frequent  J 

WEEN    no_input ' space  => 

EXIT  modifyjr<sgid_unltid; 
WEEN  aues   => 
helpC'iriNT")  ; 
fill_lccal_infrequent; 
WEEN   CTFERS    => 

error(6);  —   incorrect    input 

ENE  case; 
EM)    IGCP  irodifyjrsgid_unitid; 

—   reseiect    option 
putxy(0  ,20  .blankln)  ; 
putxy(0,20t"<ZNTEE>    to    continue,    EMTIE   <X>    to        S, 

"Reseiect :" ) ; 
reseiect    :=   rrark(  44,22  ) ; 
EXIT   WEEN    NOT    reseiect; 
ENE   LOCP; 
EM   process_local_inf  requent ; 

PROCEDURE    print_irsgfpcirt :    IN   rrsg_part)    IS 
USE    strlib;  —   Extract 

address  indent:  STRING; 
BEGIN 

IE  part  =  header  TEEN 

15  action_is(draft )  TEEN 
ECR  i  IN  1..45  LOOP 

put  printer(null  string) ; 
END  loop; 

rut_printer ("RCS    UNITRE?   DRAFT  DATA"); 
put_printer(u. 1. status. unit_id   &  SERIAL 

&   u. 1 . status. current_serial) ; 
put_printer (null _st ring ) ; 
put_printer ( 

"CLASSIFY    IN    ACCORDANCE    WITH    OPNAVINST    5610. l"); 

MV  fage; 

draft_aid("lNlTIAL    ITirs"); 

niy  fXge; 

ene  if; 

CASE  u.l.rressage. precedence  IS 
WHEN  routine  =>  buffer  :=  "R"» 


WHEN   priority    =>    tuffer    :=   "p"; 
WHEN   immediate   =>   buffer    :=   "Q%; 
WEEN    flash   =>   tuffer    :=   "z"; 

ini  case; 

put_printer(buffer  &  &   u.l  .rressage.dtg) ; 

II   forrat_is  (ocr)   TEEN 

address_indent    :=   Extract ( blankln  ,1 ,18) ; 
ELSE 

address_indent    :=  null   string? 
EM   if; 
pv :_prxnter(address_indent   &    "EM  "& 

u.l.rressage . origin* to r_address) ; 
print_add res see ("ACTION") ; 
print_addressee("lNIO") ; 

CASE   u  .l.iressage.  classification    IS 
WEEN   unclas    => 

buffer    :=   "UNCLAS"; 
WHEN   confidential    => 

buffer    :=    "C    0    N    5    I    TENT    I    A   L" J 
tfHEN   secret    => 

buffer    :=   "s    E   C   P    I   T"; 
•*'EEN    top   secret    => 

buffer" :=    "T  0  P  S   E   C  2  E  T"; 

sne  case; 

put_printer (buffer ) ; 

H    dCtion_is^draft )    TEEN 

draft  aid  (>ESS  AGE   EEAE2R"); 
NEW  page; 

EM    IE; 

—   oper/exercise 
II   u  .1  . operation .underway   THEN 

IE  u. 1. operation. plan  org  nurrber    /=  null_string 

TEEN 
buffer    :=  u. 1 .operat ion .codeword  &    "/" 

6.   u  .1  .opera  tion.plan_org_nuir  ber  ; 
ELSE 

buffer    :=  u  .1 .operation .codeword; 
INE   ie; 

put_printer("OPER/"   &    tuffer   &   "//"); 
ELSIE   u.l .exercise. underway   THEN 
put _ printer ( 

"EXER/"   &   u.l  .exercise. nicknarre  &    "//")* 
2NE    IE; 

I?  action_is(draft )  TEEN 
draft_aid ("0PER/E2ER"  )  J 
ENE  IE; 

—  rrsgid/uni  t  sets 
IE  NOT  u.l. status. feeder_report  TEIN    —  msgid 
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prt_prir.ter;;   FSGII/UNITREP/"   &  u.l. status. unit   la 
&     /     &  u.i. std"us.current_seridl   &    "//")> 
ELSE  ---  unitid    separation 

.NIW_PAGE? 
IT  actionals  (draft)   TF:iN 

put^printerf"******   Page  Separation   Point    "   & 
"for   FEEEEB   REPORTS    .******"); 
ENE   if; 

pvt_printer(  nu.lJ._st  ring) ; 
put_printer  ("UNITir/''   &   u.l .  status. unit_id   S. 

"/     &   u.l .  status  .current    serial    6.    "//")> 

im  if; 

I?  action_is(dr«f t)    TBIN 

draft_aidOsGIE/UNITIl")  ; 
INI  if; 

—  posit  set 
II  required_print (u.l .position. change)  THEN 

buffer  :=   POSIT/"  &  u. 1. position. present_location 

&  "/"; 

IF  u.l. position. present  location  =  "EXEMPT"  TEEN 

put_printer( buffer  &   /)» 
EISE 

put_printer(buf ier  S  u.  1  .position. dtg  &  "//"); 
END  if; 
IF  u  .1  .pos  it  ion  .arrpn  .  change  TEEN 

print_con"irent("p6si'j"  ) ; 
END  IF; 

eni  if; 

IF  action  is (draft)  THEN  draft  aid ( "PCS  IT" ) ;  ENE  IF; 


ELSE  —  message  trailing  items 

IF  action_is  (draft  )  OR  \i .  1  .status  .  f  eeder_repcrt  THEN 
NEV_rAG5; 

END  if; 

IF   u.l.reirdrks. change   THEN 

FCR   page   IN   1 .  .u.  1 .  remarks. nurrfcer_of_pages   LCOP 
Ouen(fvle,"RtfIs"   &    Int_to  St r(page)   &    ".AM?", 

Read_Cnly) ; 
FOP    line   IN    1.  .  u.  1.  rerrarks  .page(page) . 

number_of_lines   LOOP 
buffer    :=   GET_LINE( fyle) ; 
IF  page   =   1    AND   line   =   1   TPE.M 
buffer    :=   "RMKS/"   &    buffer; 
ENE   if; 

IF   page  =   u.l  .rerrarks.  nurrber_of  pages   AN!   TEEN 
line   =  u.l  .remarks,  page  (page]". 

number_of_lines   THEN 
buffer    :=   buffer  6.   "//"» 

ENr  if; 

put_printer(buf fer); 
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ini  loop; 

CLCSI(fyle); 
ENE  loop; 
ENE  IF; 
II  action_is(draft)  THEN  draft_aid("RM£S")J  ENE  IE; 

— declas 

IE  u.  l.rressage. classification  >  unclas  TEEN 
Frt_Frinter("ECLAS/M  & 

u. l.rressage. declassification  &  "//"); 
EM  IE; 

put_printer(end_trans); 

IE  act ion_is (draft)  THEN  draft  did ("ECLAS" ) ;  END  IE; 
ENI  IE? 
ENL  print_msg; 


BEGIN 

IE  action_is(neww)  THEN 
u.l. change  :=  FALSE; 
u.l  .status. transFit ted  :=  FALSI; 
IE  u.l  .status  ,current_serial  /=  "999"  THEN 

u  .1 .  status  .  curren  t_serial  :  = 

zero_pad  (3 ,  Int_to_Str (Str_to_Int 

(u.l  .  status. la s t_ser ial )  +1 ) ) ; 
EISE 

u.l . status .current_serial  :-  "20l"; 
ENI  if; 

u.l. status. arrpn. change  :=  EALSZ; 
u  .1  .rressage. precedence  :=  priority; 
u.l. message. dtg  :=  null_ string; 
u.l  .rressage. classification  :=  confidential; 
u .1 . message. declassif isation  :=  null_string; 
u.l  .position .change  :=  FALSE; 
u.  1  .posit  ion. arrpn.  change  :=  FALSE; 
u  .1  .remarks .change  :=  FALSI? 
ECB  i  IN  1.  .Fax_rmks_pages  LOOP 

u.l .remarks.page( i) .charge  :=  FALSI; 
ENE  LOOP; 

ELSIE  action_is(rrodify)  THEN 
p  roce  s  s_l  oca  l_m  frequent; 

process _lccdl_rsg; 
rjrocess_local_rrisc; 

u.l. change  :-  TRUE; 

ELSIE  action_is (print )  OR  act ion_is (draft )  OR 
action_is(verify)  THEN 
printer_on; 
print_FSg (part ) ; 
printer_off ; 
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ELSII   action_is(log)    THEN 

—  delete    .AMP   files,    not    saved    in 

—  data    structure 
EELETE("POSIT.AMF") ; 
riIETS("lDENT.AMP") ; 

FCB    i    IN  1.  .u.  1.  rerrarks  .  nurrber_of_'Dages   LOOP 

DELETE ("RMKS"   &    Int_to_Str(iT   &      .AMP")  J 
Itil  locp; 

eni  if; 
INI   process_locai; 

INI   urlocalj 
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WITH   urlocalAJ 
PACKAGE   urlocall    IS 
USI  urlocalA; 

—   provides   processing   of   message    inf  orrra  t  ion 

PROCEPURE   localrrask; 

PROCEDURE   process_local_rrsgl 

FROCEIURE   print_addressee(fiiename :    IN   STRING); 

INI   urlocdli; 


WITH   ic.strlib,  --JANUS/AEA   libraries 

corsio,printio , 

urglo  bal , 

uni  trepA, 

urlocalA; 
PACKAGE  *iOIY  urlocall  IS 
USE  cor  sio  ,printio  , 

urglo tal , 

unitrepA  , 

urlocalA; 

—  This  package  provides  Message  Information  LOCAL 
-•-  routines  for  UNITRE?  construction.  The  LCLAS 

—  data  set  is  supported. 

FROCEIUBE  localmask  IS 
BEGIN 

t  o  r  d  e  r ; 

putxy(efi ," local") ; 

putxy(2, 20, "ENTER   <X>/tat   to    select,    "    & 
'<ENTlR>/space   for    next,    <A>    to   airplify,        & 
"<?>   for   help"); 
INI    localrrask; 


PROCEIURE   process_local_msg    IS 

address_line:    STRING; 

FROCETURE    localrrask_rrsg   IS 
BEGIN 

localmask; 

putxy  (29, 3rt"-r"ESSAGE  INECBWAJICN-" )  J 

putxy(0  ,4/(  )  -1-  Acdresses"); 

putxy (8, 5, "(  )  Originator  

" )  ; 

putxy(8 ,6,    (    )    Action    ) ; 
putxy(8,7,"(    )    Info"); 
putxy(0,9f "(    )    -2-    Classification"); 
putxy(39,9,"%(    )    -3-   Precedence"); 
putxy (9 ,10, "-  Unclas"); 
putxy(48,104"-  Routine";; 
putxy(9,ll,    -   Confidential"); 
putxy(48,ll/'-  Priority"); 
putxy(9,12,   7  Secret"); 
putxy (48,12,"-   Irrrrediate")  ; 
putxy(9  ,13,"-  Top   Secret"); 
putxy(48,13,"-    Flash") J 
putxy (0,16, 

"(  )    -4-  reclassification  Instructions"); 
putxy  (8  ,17  ,  " "& 
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;  J 

INI   lccalrrask^jsg; 

PRCCI23URI   fill_iocdl_rrsg    IS 
EIGIN 

localmaskjrisg; 

putxy(23.5,v  .  1.  it  ess  age.  originator  _address)  J 
CASE  u.I  .rressage. classification    IS 

VEEN   uncias   =>    putxy  (9  ,10  ,x_rrark) ; 

WHEN   confidential   =)   putxy (9  ,11  ,x_jark); 

VEIN    secret    =)    putxy  (9,12, x_rrark) ; 

WHEN    too    secret   =>   putxy  (9  ,  13  ,x_rrark)  ; 
END  case; 
CASE   u.  1  .rressage1.  precedence   IS 

WEEN    routine  =  >  putxy  (48  ,10  ,x_n"ark) ; 

WEEN   priority   =>   putxy (48, 11  ,x_rrark) ; 

WEEN    irnrrediate   =>   putxy  (48  ,12  ,x_rrark) ; 

WEEN    flash   ->   putxy  (48,23, x_rrariO  ; 

ini  case; 

IE  u.I. message. classification  >  unclas  TEEN 

putxy  (4  ,16,  star  ) ; 

nu  txy^8, 1?, u.. 'wires  sage. declassification); 
END  if; 
ENI   fill    local  irsgj 

PPCCEIURE  process_addressee(filenaire:    IN   STRING)    IS 
USE    strlib;  —   Extract 

USE    io;  —  Open, Close, Get_line 

max   address:    CONSTANT    :=    15; 

sic!   CONSTANT    :=   4J  —   screen   line   offset 

address    line:   STRING; 

rr ark  .number   of  addresses:    INTEGER; 

address:    ARRAY    (L.rrax   address)    OF   ST?ING{50); 


PRCCEIURI   addressrrask   IS 
I  EG  IN 

address_Iine    :=    " ."   &   Ext rac t (da  shin ,1 ,44) ; 

border; 

outxy (0,1, filename   &    "   ALERESSEES "  )  ; 

FOR   line_number    IN    l.  .rrax_address  LOOP 

putxy(15,slo    +   li  ie_nurrber  ,address_line) ; 
ENI  loop; 

putxy  ( 10  ,3, "The    '.'    rrarks    the   starting  point        & 
"for   continuation   lir.es"); 
END    addressiraskj 

PPCCEIURE   fill  addressmask  IS 
BEGIN 

addressrrask; 
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FOE  i  IN  1 .  .nurrber_of._adcirasses  LOOP 
pntxy (15, slo+i, address (i  ) ) ; 

ENE  iccp; 
ENE  fill_addressircisk; 

FRCCEITJRE  initialize_addresses  IS 
BEGIN 

address  (1)  :=  "EELIT5  This  Line:  and  Put    & 

"First  Address  Here"; 
FOR  i  IN  2.  .max_address  LOOP 
address(i)  :=  null  string? 
INT  loop; 
END  initialize_addresses; 

1IGIN 

—  readin   current   addresses 
initial! ze_addresses>* 
CFEN( fyle, filename, Read  Only  ) ; 

FOR   i    IN   1.  ,rrax_address   LOOP 

EXIT   WEEN    ENE~OI   FILE(fyle); 

address(i)     :=   G1T_LINE( fyie ) ; 

nurr"ber_of   addresses    :=   i» 
ENE  loop; 
CICSKfyle); 
f  ill_addressrrdsk; 
LCO? 

putxy(0,20,blankln) ; 

putxy  (10,20  ,  "<ENTIR>  to  continue,    & 
"<C>  to  change,  <E>  to  erase,  "& 
"<?>  'or  help") ; 

get xy_irrrediate  (76,20  .icey); 

CASE   key   IS 

WHEN   nc_input ! space   => 

exit; 

WHEN   c   => 
mark    :=  l; 

LOOP 

putxy(0,20, plankln) ; 

putxy (0  ,20, "<E>    to    delete,    <A>    to   add       & 
"<it    the   cursor   position,        & 
"<X>    to    exit    change"); 
getxy   irrmediate(13,slo   +   nark, key); 
putxyTl3,  slo+rnark,  Clank)  ; 
CASE   key   IS 

WEEN  no_input i space    => 

IF    (rrark   -   nurrter_of _<addresses    +   1) 

CR    (Tark   =   max_address)    TEEN 
rrark    :=   1» 
ELSE 

Tark    :=   mark   +    1J 
ENE   if; 
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WEEN  xjtat  =>  EXIT; 
WEEN  d  => 

FCR  i  IN  mark.  .m:rrter_of_addresses-'-l 

LOOP 
dddress(i)    :=  address (i+1  ) ; 
ENE  loop; 

address  (rrdx_address  )    :=   null__stringj 
IF   nurrber_of_addresses   /=  0    THEM 
nunber_of_addresses    :  = 

nurrber_  of  _addresss:-   -   1» 

ene  if; 

fill_addressmask:; 
WHEN   a    => 

IE   nurrber_of   addresses   <    15   THEN 
FOR   i    IN   REVERSE   mark+1.. 

rax_address   LCOF 
address fi)    :=  acdress (i-1) » 
1MB  loop; 

address  (trcark:)    :-  aull_string; 
nun"ber_of  _addresses    :  = 

nvnber_of  _addresses   +1? 
f  ill_addressfTd5K; 
getxy(15,slo    +   pari:, 

.       address  (raric }  ,50) ; 
irark    :=   rrark   +    l; 
ELSE 

error(32) ; 

—  only  15  addresses  allowed 
END  if; 
WFEN  CTF.ERS  =0 

error (6);  —  incorrect  input 

ine  case; 

ENE  LOOP; 
WEEN  e  => 

initiallze_ad dresses; 
f ill_dddressmas&; 
WEEN  ques  => 

helpC'ADERESSEES"); 
f  ill_addressrrasfc; 
WEEN    OTEERS    => 

error(e);  —   incorrect   input 

ENE  case; 
ENE  loop; 

—   store    file 
lELETE(filendrre); 
Create(  fyle,filenaire,Write_Only); 
FOR   i    IN   1.  .max_address    LOOP 

EXIT  VFEN   address(i)    -   null_stringj 
PU?(fyle,address(i) ); 
NEW_LINE(-yle); 
IKE  ice?; 
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CLOSE(fyle); 
END  process_dddressee; 

BEGIN 

LOCF 

fill_local_msg; 

—  addresses 
rrodif  y_addresses:    LCOP 
putxy (1 ,4, blank) ; 
getxy_iirrrediate(l  ,4, key)  ; 
CAST   key   IS 
WHEN   x,1  tab    => 

IF  rrark(S,5)    THIN 

—  originator 
LCOP 

clear_field(23,5,£0) ; 
getxy(23,S, 

u.  1.  ires  sage,  origins  to  r__ad  dress,  50) » 
EXIT  WHEN  u .1 . message. originator_address 

/=  null_string; 
error(22);   --  address  reauired 
END  loop; 
end  if; 

—  action 
IF   rrark(9,6)    THIN 

process_dddressee("ACTION"  ) ; 
fill    local_rrsg; 
END    IF? 

—  info 
IF   rrark(9,7)    TEEN 

process _dddressee("lNFC" )  ; 
fill_local_rrsg; 
END  if; 
WHEN  no_input ! space  => 

EXIT  rrodify_addresses; 
WHEN  ques  => 

help  ("ADDRESSEES'"); 
fill_local_rrsg; 
WHEN  OTHERS  => 

error(6);       —  incorrect  input 
END  case; 
END  LOOP  modify_addresses; 

—  rressage. classification 
IF  rrark(l,9)  THEN 

CASE  u.l .message. classif icdt ion  IS 

WHEN  unclas  =>  putxy( 9,10 , dash) ; 

WHEN  confidential  =>  putxy (9  ,11  .dash  )  ; 

WHIN  secret  =>  putxy(9, 12 ,da sh) ; 

WEEN  top_secret  =>  putxy (9  ,13  ,dash) ; 
END  case; 
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LOCP 

IF  mark(S,10)    THIN 

u.l.iressage. classification    :=   unclas; 
u .1 .message. declassification    :=   null_string; 
putxy(4, 16, blank)  ; 
EXIT; 
ELSIF   mark(9,ll)    TFEN 

u.l. message .classification    :=   confidential; 
exit; 

ELSIF   mark(9,12)    TEIN 

u .1 .message . classification    :=   secret; 

exit; 

ELSIF   mark(9,13)    TEEN 

u .1 .message .classification    :=   top_secret; 
exit; 

ELSE 

error(ie);      —  must  choose  one 
ENE  if; 
ENE  loop; 
END  if; 

—  message. precedence 
IF  mark'40,9)  TEEN 

CASE  u .1 .message. precedence  IS 

WEEN  routine  =>  putxy(43 ,10, dash) ; 
WEEN  priority  =>  putzy (48 ,11 ,dash ) ; 
WHEN  immediate  =>  putxy (48,12, dash) ; 
WEEN  flash  =>  putxy (48,13 , dash) ; 
ENT  case; 
LOCP 

IF  mark(48,10)  TEEN 

u .1 .message. precedence    :=   routine; 
EXIT ; 
ELSIF    rrdrk(48,ll)    TEEN 

u  .1  .rressage. precedence    :=    oriority; 

exit; 

ELSIF   mark(48,12)    TEEN 

u  .1  .message  .preced ence    :=    immediate; 

EXIT* 
ELSIF    mark(48,13)    TEEN 

u  .1  .rressage. precedence    :=    flash; 

exit; 

ELSE 

error(ie);      —  must  choose  one 

ini  if; 

ENE  LCCP; 
ENE  if; 

—  message. declassif ica tioa 
IF  ( u.l .message .classification  >  unclas 

AMI  u.l .message .declassif ication  = 

null_string,  TEIN 
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LOOP 

clear  field(8,17, 61); 

get xyT8 ,17, u.l.rcessage. declassification, 61) ; 

HIT  WHIN  u.l  .rressdge.decldssificdtion 

/=   null_strlng; 
error(21); —   required   for   classified  message 
INE  loop; 
eni  ir; 

—   reselect    option 
putxy(0,20,blan]£ln)  ; 
putxy(0,20,"f<INTIB>    to    continue,    INT1R    <X>    to     '   & 

Reselect :  ") ; 
reselect    :=   n"drK(44,22) ; 
1XIT  WHIN   NOT  reselect; 
INI   LOOP; 
INE   process_localjfsg» 

PROCIIUHE   print   addressee (filename :    IN   STRING)    IS 
USI    io;        —Open, Close, GIT_LINI 
US  I   striib?  — Extract 

address_indent :   STRING; 

BEGIN 

Cpen(  fyle,fllenatre, Read  Only); 
II    format_is(ocr)    THIN 

address~indent    :=   Extract  ( blanlcln  ,1,16)  J 

USE 

address_irident    :=   null_string; 

ini  if; 

II    filenaire   =    "ACTION"    TEIN 

buffer    :=••  address_indent   &    "TO  "; 

IISI 

buffer    :=  address_indent  &   "INFO       "; 
EM   if; 

buffer    :=   buffer  &  GIT_LINI( fyle ) ; 
put    printer ( buff er  ) ; 
WHILE    NOT   2ND_0F_FILE(fyle)    LOOP 

buffer    :=   address_indent   & 
&   GIT_LINI(f7le); 

put   printer(buffer) ; 
INI  locp; 
CICSE(fyle); 
II    forrrat_is(rrsg)   AND   filename    =   "INFO"    THEN 

put_printer(end_trdns) ; 
EMI   if; 
ENI   print_addressee ; 

INT   urlocali; 
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PACKAGE  uradirin  IS 

—  This  package  provides  access  to  the 

—  administrative  process  for  UNITRJP  construction 

PPCCirtiFI   process_adirini5trative; 

INI  uradminj 


,43 


WITH  io,strlib,       —  JANUS/AEA  Libraries 
consio  .print io  , 
urglbl ,urglobal , 
urut il , 

uni  trepE,uradminB; 
PACKAGE  30IT  uradrrin  IS 
USE  consio ,printio  , 
urgltl,urglobal , 
urutil , 
unitrepB  ,uradmin3  ; 

—  This  package  provides  ADMINISTRATIVE  routines  for 

—  UNI  TRIP  construction. 

~  Data  sets  COWAN  I,  ACTIV,  MEDIC,  REPORG  am 

—  VERIFY  are  supported. 

PBOCETUPE   prccess_administrative    IS 
TJSE   io,   — Cpen,Close,End_cf_File 
strlilj;  — Extract 

—  performs    required  manipulation   of  administrative 

—  information 

PROCIIURE  adminmask  IS 

—  draws  the  admin  fields  screen 
EEGIN 

border; 

putxy(2,l, "ADMINISTRATIVE  "  )  ; 
putxy(0,4,"(  )     -1-   Command  Change"); 
rutxy(35,4,"C0/CIC" ); 

putxy (45, 4,  ' ")  ; 

putxy(35, 5, "Effective  ETG") ; 

putxy (62, 5/'ddhhmmZMMMyy"  } ; 

putxy (0,7,    (    )  -2-      Activity    Change"-; 

putxy(35,?/'Code     — '*); 

putxy(0,9,"(  )     -3-  .Physician  Status")? 

putxy(35,S,' (  )  Onboard"); 

putxy(35,10/t*  (  )  Departed"); 

putxy (2,12,  '  (  )     -4-   New  Reporting  ORG"); 

putxy(35,12,  Effective  ECG") ; 

putxy ( 62 ,  12 , "ddhhromZMKMyy" ) ; 

uutxy(ll, 13, 

(     )CNO         (     )CINCPACFLT         (     )CINCLANTELT         "); 
PUT("(     )CINCDSNAVEUR")i 
Dttxy (0,15, " (    )  -5-     Feedback   Verification") J 

putxy (35, 15,'ti(    )    Valid"); 
putxy(35  ,16,"(    )    Corrected"); 

putxy(0,20,"<X>/tab    to    Select,    <1NTIR>/ space        & 
"for   next,    <A>   to   amplify,    <7>   for   HELP"); 
INI    ddminmask; 
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PROCEDURE  fill_adminmask  IS 

—  fills  in  the  administrative  screen  with 

—  change  information  from  the  vorkfile 
BEGIN 

adminmask; 

putxy(45,4,u.ad.command.cooic) ; 
putxy (62 ,5 ,u .ad. command  .dtg)  ; 
IE  u.ad. command. change  TEEN 

putxy (4  ,4, star  ) ; 

IF  u .ad .command .ampn . change  TEEN 
putxy  (6 ,4  ,d_mark)  ; 

END  IE; 
EM  if; 

putxy (41, 7, u.ad. activ .activity_ccde ) ; 
IE  u. ad. activ. change  THEN 
putxy(4,7  .star); 

IE  u. ad .activ. ampn. change  THIN 
putxy (6  ,7  ,a_mark) J 

END  if; 
ENE  if; 

IE  u. ad. medic. status  =  onboard  TEEN 

putxy (36  ,9  ,x_mariO  ; 
ELSE 

putxy (36  ,10,x_mark); 
END  if; 

IE  u. ad. medic. change  THEN 
putxy(4,9,star) ; 
IE  u  .ad  .medic. ampn . change  THEN 

outxy (6,9 ,a_mark) ; 
END  if; 
5M  if; 

IE  u.ad . reporg .new_rep_org  =  cno  THEN 

putxy (12,13 ,x_mark)  ; 
ELSIF  u.ad. reporg .new_rep_org  =  cincpacflt  TEEN 

putxy(21,13,x_mark) ; 
ILSIF  u.ad. reporg. new_rep_org  =  cinclantflt  TEEN 

rutxy(37,13,x_mark) ; 
ELSE 

putxy (54,13 ,x_mark) ; 

ini  if; 

putxy (62,12, u . ac .repo rg .dtg) ; 
IF  u.ad. reporg. change  TEEN 

putxy(4,12,star ); 

IE  u.ad .reporg. ampn .change  THEN 
putxy (6,12 ,a_mark  ) ; 

end  if; 
end  if; 
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II  u. ad. verify .feedback_ver  =  valid  THIN 

putxy(36,15,x  mark)  ; 
ELSE 

rjutxy(36,ie,x_mark)  ; 
INT  if; 
II  u. ad. verify. change  THEN 

putxy(4  ,15, star ); 

II  u. ad .verify. ampn .change  THEN 
putxy(6,15,a  rrark); 

END  if; 
ine  if; 

ENI    fill_adminmask; 

BEGIN 

—   do    the   appropriate   action 
IF   action_is (neww)    TEEN 
12. ad. change    :=   FALSE; 
u  . ad. command  .  change    :=   FALSE; 
D. ad. corrrrand  .ampn. change    :=   FALSE; 
u .ad. activ .change    :=   FALSE; 
u  .ad.  activ.ampn  .change    :=   FALSE; 
u. ad. medic. change    :=   IALSE; 
u  .ad. medic  .arrpn  .change    :=   FALSE; 
u. ad. reporg. change    :=    5ALSE; 
u. ad. reporg. ampn. change    :=  FALSE; 
u  .ad. verify. change    :=    FALSE; 
u .ad. verify .ampn . change    :=  FALSE; 

ELSIE  action_is(modify)  TEEN 
mcdify_admin:  LOCP 
fill_adminmask; 
modify_ccTmand :  LOCP 
putxy (1 ,4 , blank) ; 
getxy_immediate(l ,4, key ) ; 
CASE  key  IS 
VFIN  x|tab  => 

outxy(4 ,4, star)  ; 
clear  field (45, 4,30) ; 
putxyTe2,5,,,ddhhmmZ^,rMyy,, )  ; 
get xy( 45, 4, buff er,32) ; 
IF  Duffer  =  null_string  THEN 
u  .ad. command. change  :=  FALSE; 
u  .ad. command. ampn .change  :=  FALSE; 
ELSE 

u  .ad. command. cooic  :=  buffer; 
u. ad. command. change  :=  TEUE; 
u. ad. change  :=  TRUE; 
LOOP 

getxy (62 ,5, u. ad . command .d  tg ,12) ; 
verify_dtg( u. ad. command .dtg, success) J 
EI  IT  WEEN  success; 
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putxy(62,5,u.ad  .command  .dtg) ; 
END  LOOP; 

end  if; 

WEEN  a  => 

IF  u. ad. command .change  THEN 
process_comment  ( "CCMI*ANL"* , 

u.  ad .command . ampn) ; 
f ill_ddminmdsk; 
USE 

error(27);      —  no  set  to  amplify 
EN!  if; 
WEEN  no_input i space  => 
EXIT  modify_command; 
WEEN  aues  => 

help("COrrANr")  ; 
f ili_adminmask; 
WEEN  CTEFBS  => 

error(28);  --  incorrect    input 

END  case; 
ENL   LCCP   rrodify_commcini; 

modi fy_activ:    LOOP 
putxy(  1 ,7, blank); 
gtitxy   immediate  (1 ,7,  key)  » 
CASE  key   IS 
WEEN    xjtab    => 

clear_field (41,7,2); 
getxy(41, 7, buffer ,2); 
IF   buffer   =   null_string  TEEN 
u. ad. activ. change    :=  FALSE; 
u  .ad  .activ. ampn . change    :=   FALSE; 
putxy(41,?,u.ad.dctiv.activity_code); 
ELSE 

0pen(fyle,"TA3LE.3-e"  ,?.ead_0nly  ); 
LOOP 

IF   End_of_File(fyle)    TEEN 
CLOSE(fyle) ; 

error(lw);      —   activity   code   not    found 
putxy (41, 7, u .dd .dcti v.dctivity_code) ; 
EXIT; 
ELSE 

file_buffer    :=  G-ET_LINE (fyle) ; 
END   if; 

IF   Extrdct(file_buffer,l,2)    =   buffer   TEEN 
CLOSE(fyle); 

u. ad  .activ. change    :=   TRUE; 
putxy (4, 7, star) ; 

u.ad.ac tl v.acti vi ty_code    :=   buffer; 
u.ad.chdnge    :=  TRUE; 

exit; 

ent  if; 
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ENE  LOO? ; 
ENE  IF; 
WEEN  a  => 

IF  u. ad. activ. change  THEN 

process  _comment  (  ACT IV "  ,u  .ad  .activ. arr.pn)  ; 
fill  adminmask; 
ELSE 

error(2?)J      —  no  set  to  amplify 
END  if; 
WEEN  no_iniiu: !  space  =>  EXIT  trodify  activ; 
WEEN  aues  =>  help ("ACTIV") ; 

view_table("TAB!E .E-e" }; 
fill_adminmask; 
WEEN  OTHERS  =>  error(28);    —input  choices 
ENE  CASE; 
ENE  I0CP  rrodify_activ; 

IE  program. unit.  IN  ship ..  submarine  TEEN 
modify_medic :  LOOP 
putxy  (1 ,9, blank) ; 
getxy_lmmediate (1 ,9 ,key ) ; 
CASE  key  IS 
WHIN  r.  -tan  => 
putxy (4,9, star) » 
putxy ( 36 ,9, blank) ; 
uutxy (3c. 10 , Olank) * 
LOOP 

I?  rrark(3e,9)  TEEN 

u. ad  .medr.  c.  status    :-   onboard? 
u. ad. rredic.  change    :=   TPUEJ 

exit; 

ILSIF   rrark(3e,ie)    TEEN 

u.ad  .rredic.  status    :=  departed; 
u.ad. rredic.  change    :=   TRUE; 

exit; 

ELS2 

error(16);      —   must   choose   at    least    one 
END  if; 
ENE  loop; 
WEEN   a    => 

IF  u. ad. rredic. change    TEEN 

■Drocess_comrrent(    MEEIC"tu. ad. medic,  ampn)  ; 
f  ill_adrrinrrask; 
ELSE 

error(27);  --   no    set    to   amplify 

ENE   if; 
WEEN   no_input ! space   => 

EXIT  modify _medicJ 
WEEN   aues   => 

heipOiric") ; 

fill   adminmask; 
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WEIN  OTHERS  => 

error(28);      --  input  choices 
ENL  case; 
ENE  LOOP  rrodify_rredic; 
ENI  if; 

modify  reporg:  LCOP 
putxyd ,12, blank) ; 
getxy_irrmediate  (1 ,12, key) ; 
CASE  key  IS 
WEEN  xjtab  => 

pu  t  xy ( 62 , 1 2 , "  ddhhmm  ZMMPyy  "  ) ; 

putxy(4,12,star); 

putxy (12, 13, blank) ; 

putxy(21 ,13, blank) ; 

putxy  (37, 13, blank) ; 

putxy(54, 13, blank) ; 

I0CP 

IE   rrark(12,13)    THIN 

u. ad. reporg. nev_rep_org    :=  ciol 
EX  I T  * 
EISIF   rrark(21,13)    THIN 
u. ad. reporg. new_ rep    org 

exit; 

•ELSIF  rark(37,13)    THEN 

u  .ad  .reporg .new    reporg    :=  cinclantfit; 

exit; 

ELSIF    irark(54,13)    THIN 

u.ad. repo rg .new_ rer_org    :=   cincusnaveurj 

exit; 

ELSE 

error(16)>     --  must  select  one 
END  if; 
eni  loof; 

LOOP 

get xy  (62 ,12 , u.ad, reporg .dtg ,12 ) ; 

verif y_dtg( u. ad. reporg.dtg , success); 

EXIT  WHEN  success; 

rutxy (62, 12,u .cd.reporg. it g ) ; 
INI  loop; 

u  .ad. reporg .change  :=  TRUE; 
VEEN  a  => 

IF  u. ad . reporg. change  TEEN 

process_cominent  ( "REP ORG"  ,u  .ad  . rep org. amp n) ; 

f  ill_adrrinrrask; 
ELSE 

error(27);  —  no    set    to   modify 

ENE  if; 
WEEN    no_input ! space   =) 

EXIT  Todify_reporg; 
VEEN  cues  => 
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helpf'REPORG"); 
f  ili_ddrinrrdsk; 
WHIN  CTEERS  => 

error(28);        —  input  choices 
END  case; 
ENI  LOCP  rrodify_reporg; 

modify_verify:  LOOP 
putxyd  ,15. blank) ; 
getxy_innrediate(l  ,15, key)  ; 
CASE  key  IS 
VEIN  x!tab  =) 

putxy(4,15,star); 
put xy( 36, 15, blank) ; 
putxy(36, 16, blank) ; 
LOO? 

IE  rrark(36,15)  TEEN 

u. ad .verify .feedback_ver    :~   valid; 
u. ad .verify .change    :=   TRUE; 

exit; 

ELSIE   mark(36,ie)    TEEN 

u. ad .verify .feed cack_ver    :=   corrected; 
u. ad. verify. change    :=   TRUE; 

exit; 

ELSE 

error(ie);  --   rrust    select   one 

ENE    IE; 

ini  loop; 

WEEN   a    => 

IE   u.dd. verify. change   TEEN 

process_coirrrent  ( "VERIET"  ,u.  ad  .  verify,  arpn)  ; 
f  ill_ddirinrrdsk; 
ELSE 

error(27);  —    no    set    to    errplify 

END  if; 
VEEN   no_input j space   =.s 

EXIT   iPodify_verify; 
WEEN    ques    => 

helpC'VERIEY"); 
fill_adrrinrrask; 
WEEN    CTEERS'  => 

error(28);  —   input    choices 

ENT  case; 
INI   LOCP   rrodify_verify; 

putxy  (0,22J,blankln) ; 

putxy(2,20,"<ENTER>  to  Continue,  Enter  OCN  to    & 

"Reselect : ")  ; 
reselect  •  =  rark(44,23); 
EXIT  modify_admln  WEEN  NOT  reselect; 
INI  LCOP  rrodify  airin; 
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ILSII   action_is(draf t)    OR   action_i s (print  ) 

OH  dCtion_is(verify)    TFIN 
printer_on; 

IP    action    is(drdft)    TEEN 
MW   FAGE" 

ini  if; 

II   requiredjprint  (u.ad. cormrand  .change)    THIN 
r.ut_printer("COMMANE/"   &  u  .ad  .corrrrand  .cooic   & 

"/"      &    u.  ad  .comrand  .d  tg   S.    "//"); 
IF   u  .ad  .corrirand  .ampn  .  change   THIN 
print_corrrent  ("COrMANE; J 

ine  if; 

II  action  isjdraft)  THEN 

draft_aidf CCMKANE" )J 
INE  if; 
INE  if; 

II  required_print (u.ad . activ .change )  THIN 

put_printer  ("aCTIV/"  6-  u.ad. activ. activity  code 

&  "//"); 

II   u. ad  .activ. arrpn.  change   THIN 

print _comment(" ACTIV" ) ; 
INE   if; 
IF   action_is(draf t)    THIN 

Open(  fyle  /'TABLE .B-c"  ,Read_0-nly ) ; 

buffer  :=  GIT_LINI(fyle) ; 

WEILE  u.ad .act i v. act ivity_code  /= 

Extract(buffer,lf2)  ICC? 
buffer  :=  GIT  LINI(fyle); 

INE  loop; 

CLCSI(fyle) ; 

put_pr inter (null _st ring) ; 

put_printer( buffer) ; 

put_print er (null    string); 

draft  aidf'ACTIV") ; 
ENE  if;~ 
INE  if; 

II  required_print (u.ad. medic. change) 

ANE  program  .unit  =  ship  THIN 
II  u.ad .medic. status  =  onboard  THIN 

buffer    :=    "ONBCARl"; 
ILSE 

buffer    :=   "EIPARTIE  '? 
I  NIT    IF* 

Fut_printer(">EDIC/"   &    buffer   &    "//"); 
IF  u  .ad  .medic. amun. change    THIN 

Drint_corrrrent(    PEIIC"); 
INE   if; 
IF   action    is(draft)    THIN 
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draft  aid(>EEIC")i 

ini  if; 
ini  if; 

IF  required_print (u .ad. reporg. change)  TEEN 
CASE  u. ad.reporg.new_rep  org  IS 
VEIN  cno  =>  "buffer  :=  "CNC"; 
VEEN  cincpacflt  =>  buffer  :=  "c  INCPACILT"; 
VEIN  cinclantflt  =>  buffer  :=  "CINCLANTFLT"; 
VEIN  cincusnaveur  =>  buffer  :=  "CINCUSNA VEUR"; 
end  case; 

EUt_printer(".RFPOR(J/"    S    buffer   &    "/"    & 

u.ad.reporg.dtg  &   "//")? 
II  u  .dd  .  reporg.arnpn  .change   THEN 
crint    coirrrent  ("REPOHG")  ; 

ent  if;" 

IE   action_is'draf t)    TEEN 

drdft_did("REPCEG'>); 
INT  if; 
ENE  if; 

II  required_pr-.nt  (u. ad.  verify  .change  }  TEEN 
II  u .ad .verify. feedback  ver  =  valid  THEN 

buffer  :=  "VALIE"; 
IISI 

buffer  :=  "C0RRECT2r"; 
END  IF? 

put_printer(  "VERIFY/"   &   buffer   &    "//")? 
IF   u.ad  .ver if y.arrun.  change    THEN 

print  comment ("VERIFY* '); 
END  if;" 
IF  action_is^draft)  TEEN 

draft  aidf'VERIIY")  ; 
ENE  if; 
ini  if; 

print er_off ; 

ELSIE  action_is(log)  THEN 
EEIETE( "COMMAND. AMP ")  ; 

eeiftfCagtiv.a^f"); 

IELETE(>EriC.AMP"j  J 
EILETE("REPCRG.AMP  '),* 

niETE( "verify. amp"  ); 

ELSE    NULL; 
ENE   11; 

—    return    the   altered   admin_set 
END   process_adrrinistrdt ive; 
INI   uradirin; 


PACKAGE  uralr  IS 

—  This  package  provides  access  to  the  AI?  process 

—  for  UNITREP  construction 


PPOCirURl  process_alr; 

—  train   air   subprogram    for   actions    other    than 

—  rodify    (which    is    in   ur-dirl/2/3   of  unitrepS) 


EN!   urairj 


KITE  strlio.io,       —  JANUS/ALA  Library 
printio , 
urgltl , 
urglobal , 
unitrepE,urairB; 
PACKAGE  KEY  urair  IS 
USE  printio, 
urgltl, 
urglo  tal  , 
vnitrepB,urairB  ; 

—  Provides  processing  of  UNITPI?  dir  situations 

—  for  all  actions  with  the  exception  of  modify 

—  lata  sets  AIRAUTE,  CRE'aAUTF  ,  AIRSTAT,  CRFWSTAT, 

—  RECCN  and  corresponding  DELETES  are  supported  oy 

—  urair(x) 

two0,del,auth :  STRING; 
cig_string:  STRING(145); 

PROCEDURE  zero_locaticn(i ,j :  IK  INTEGER)  IS 

—  zeros  all  status  information  for  a  particular 

—  aircraft  type(i)  and  location(j) 


BEGIN 

u.ar 
u.ar 

I?  J 

u . 
ELSE 

u. 
ENL 
u.ar 
u.ar 
u.ar 
u  .ar 
u.ar 
u.ar 
u.ar 


--  z 
.ac_type( i 
.ac_tyoe( i 
=  1  TBEN 

--  p 

ar. ac_type 


ero  location 
) .locat ion( j  ) 
) .lccation( j) 

resent  positi 
( i ) . location ( 


set  'i,j) 

.change  :=  FALSE? 

.delete  :=  FALSE? 


on 
J).iss 


ar. ac_type (i ) .locat ion( j) .iss  :=  null_string? 


IE; 

.ac_type( i 
.ac_type(i 
. ac_type( i 
.ac~type(i 
.ac_type( i 
.ac_type( i 
.ac_type(i 


)  .location(j)  .airs tat 
)  .locat ion ( j )  .airs tat 

)  .locat ion(j^  .airs  tat 
).location(j) .airstat 
)  .location (j )  .airstat 
).location(j). airstat 
).location(i)  .airstat 


u.ar.ac_type(i) .location(j) 


u.ar. ac_type(i  ).location(j) .airstat.a 

nuirfc 
stat  . 
stat  . 

Stdt  . 

stat . 

Stdt  . 


u.ar.ac_type( i) .location(j 
u.ar.dc_type( i ) .locat ion ( 


u.ar.ac_type(i).location(j) 


u.ar.ac_type(i) .location! 


) 


crew 
cr  ew 
crew 
crew 
crew 


har. 
ele 
oss 

JC 

rrc 
rrc 
rrpn 

rpn 
er_ 
cha 
del 
for 
rea 
drrp 


ge    !-    FALSI; 
te     :=    FALSE; 
essed    :=    two0> 
:=    two<?; 
:=    two?; 
:=  two?; 
.change 

:=  falsf; 

• 

of  lines  :=  0» 

nge    :=    FALSE; 
ete    :=    FALSE; 
rred    :=    two0» 
dy    :=    two0; 
n .change 

:=  false; 
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u.ar  .dc_type(  i)  .lccation(j)  .crewstat  .drrpn  . 

nurr  ber_of_lines    :=   0; 
u.ar.ac_type(i  )  .location!  j  )  .recor.  .change    :=    FALSI; 
u.ar.ac_type( i) .location! j)  .recon. delete    :=    FALSI; 
u. ar.ac_type(i). location! j). re con. 

nrmber_of _capabil 1 ti es    :=   05 
u.ar.ac_type(i)  .location! j)  .re  con. arrpn. change 

:=  false; 
u.ar.ac_type(i  ). location!  j)  .  recon  .arrpn. 

nurrber_of_lines    :=   :£\ 
FOR    z    IN   1.  .irax_recon   LCCP 

u.ar.ac_type( i)  .location! j)  .recon.capat)ility(z  ! 

:=   null    string* 
INE  iccp; 
INT   zero    location; 


PRCCELUPE    zero_ac_type(i :    IN    INTEGER)    IS 

—  zeros    the    status    information    for   a  particular 

—  aircraft    type 


EEGIN 


"■  — 

zer 

u 

.  ar 

.ac. 

.type 

[i). 

u 

.ar 

.ac 

_type< 

ri)  . 

u 

.ar 

•dC. 

_type< 

'  i )  . 

u 

.  ar 

.  ac 

_typel 

!i). 

u 

.ar 

.ac_ 

_typel 

'i)  . 

u 

.ar 

.ac. 

_type 

'  i  ) . 

u 

.ar 

.ac. 

.type 

'  i ) . 

u 

.ar 

.ac. 

_type( 

i)  . 

u 

.ar 

.ac 

"type 

I  i )  . 

u, 

.ar 

.  ac 

.type! 

,i). 

u 

.ar 

.ac 

type" 

'i)  . 

u 

.ar 

.ac 

_tyve 

[i)  . 

u 

.ar 

.dC. 

_type< 

i)  . 

u. 

.  ar 

.  ac 

type! 

i)  . 

FOR 

1  IN  1.  .r 

nax_ 

zero 

Locat: 

Lon( 

Fl 

n 

LCO1 

?; 

NI 

ze 

ro  ac  ty 

se; 

o   cut    all    iters 
change    :=   FALSE; 
delete    :=   FALSE; 
iss    :=   null    string; 
ac_auth. change    :=   FALSE; 
ac'auth. delete    :=   FALSE; 
ac~auth.iss    :=    twoZ; 
ac_auth. arpn . change    :=  FALSI? 
ac_auth  .arrpr. .  nvFber_of_lines    :=   ! 
crews _dUth . chdnge    :=   FALSE; 
crews_auth. delete    :=   FALSE; 
crews_auth. iss    :=    two£; 
crews_auth  .arrpn  .change    :=   FALSI; 
crews  _auth  .  dP"pn  .number  _of  _  1  ines 
nurrber_of  _locations     :=   1»    — noire 
locations   LOOP 


=  0; 

d!  at e 


PROCEDURE   prccess_air    IS 

USE    strlih; —   Int_to_Str, Extract ,Fos it  ion , Length 
USE    io;  —   Cpen,CLOSEtEELETE,G£T_LINE 

—   main   rrodif ication   algorithm    for    air   data 

FUNCTION   print_with_delete(deleted :    BOOLEAN) 


RETURN  BOOLEAN  IS 

—  used  to  determine  if  a  deleted  set  is  to  te 

—  printed  during  message  preparation  and  dra^t 

—  document  printing 

3EGIN 

II    (action   is(print)    AND   deleted) 

OR 
(action_is(draft ) 

ANE   NCT   program. messdge_transmitted 
ANE   deleted)        THIN 
RETURN  true; 
ELSE 

RETURN  false; 
ene  if; 
FNE   print_with_delete; 

FUNCTION   nrint_wo_deletef changed .deleted:   BOOLEAN) 

RETURN    BOOLEAN    IS 

—  used    to   determine   if   a    set    is    to    be   printed 

—  with   or  without   a   delete   during   prints, 

—  verification    and   drafts 

BEGIN 

IF  (action_is (print )  ANE  changed) 
CR 
(action_is (verify)  ANT  NCT  deleted) 

OR 
(action_is (draft )  ANE  (NOT  deleted))  TEEN 
RETURN  TRUE; 
ELSE 

return  false,* 
em  if; 

ENE  print  wo  delete; 


BEGIN 

IF  action_is(neww)  TEEN 
LCC? 

success  :=  TRUE; 
u.ar. change  :=  FALSE; 

FCR  i  IN  1 .  .u  .dr. number  of_ac_types  LOOP 
u.ar.ac  typed )  .change  :=  FALSE; 
IF  u.arTac_type(i  ). delete  THEN 
FOR  z  IN  i  .  .maz_<ic.  types-1  LOOP 

u.ar.ac_ty-oe(  z)  :=  u.ar  .ac_tyue  (z  +  l)  ; 
ENE  loop; 

IF  u.ar.number_of_ac_types  >  0  TEEN 
u .ar .number_of_ac_types  := 

u .ar . numb er_ of _dc_ types -1 ; 
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ini)  if; 

zero_ac_type(rrax  ac_types); 

success    :-    FALSE7 

fni  if; 

u.ar. ac_type(i) .ac_auth. change    :=   FALSE; 
u.ar.  ac_type(  1)  ,ac_auth.arrpn  .change    :=   FALSE; 
IF   u„ar  ,ac_type  (i  )  .ac_auth. delete   TEEN 
u.ar. ac_type( i ) .ac_auth.de lete    :=   FALSE; 
u.ar  ,ac_type( i ) .dc_auth. iss    :=   twc0J 
END  if; 

u.ar.ac_type(i) .crews_auth. change    :=  FALSI; 
u.ar  .dc_type(  i  )  .crevs_auth  .airpn  .change    :=    FALSE; 
IF   u  .ar .ac_type (i ). crews_auth. delete   THIN 
u.ar.ac_type(i ) .crevs_auth  .delete    :=   FALSE; 
u.ar.dc_type( i ) .crews_duth  .iss    :=   twoZJ 
FNL  if; 

FOP    j    IN   1 .  .u.dr.ac_type  ( i )  .r.u!rber_of_locaticns 

LOO? 
u. ar.ac_type( i) .1 ocati on( j) .change    :=    FALSE; 
IF   u  .ar.ac_type  (i  )  .location (j ) .delete   TEIN 
a .ar.ac_type( i )  .location (j  )  .delete    :=   FALSE; 
FCF.    z    IN    j.  .rrdx_locdtions-l    LOOP 
u.ar .ac_type( i ) .location ( z )    :- 

u.ar.ac_type(i)  .location ''z^D  ; 
INI    LOOP; 
IF   u.ar.ac_tyoe(  i ) .  nurrber_of_locations   >   1 

THEN 
u  .ar.ac_type(  i  )  .nurrber_of_locdt  ions    :  = 
u.ar.ac_tyoe(i).nurrber_of_locations   -    l; 
END  if; 

zero_location(i,rrdx_lccdticr.s)'; 
success    :=   FALSE; 
EM   if; 
u.dr.ac_type(i).lccdtion(j).dirstat .change 

:=   FALSE 
u .ar.ac_type( i) . location ( J ) .airs tat .ampn . 

change    :=   FALSE 
IF   u.ar.ac   tyned  )  .location  (j  )  .airs  tat  .delete 

TEEN 
u.ar.ac_type(ij  .location(jj . airs  tat . delete 

:=    FALSE 
u.ar.ac_type(i)  . location (JO .airstat . 

possessed    :=    tvo0 
u.ar.ac_type( i) . location ( j) .airstat . froc 

:=    twc3 
u.ar.ac_type(i)  .location(j)  .airstat. prrc 

:=    tvce 
u.ar.ac_type(i)  .lccation(J)  .airstct.nrrc 

:=    twov? 

ENr  if; 

u.ar.ac_type(i).lccatior.  (j).crewstat. change 
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:=   false; 
u.ar.ac_type(i)  .location  (J),  crews  tat.  airpn. 

change  :=  FALSI; 
IF  u.ar.ac_type(i) .location (j). crews tat . 

delete  TFIN 
u.ar.ac_type(i) . location ( j ) .crews  tat .delete 

u.ar.ac_type(  i)  . location(  j)  .crews tat .  forrred 

:=  twc0J 
u.ar.ac_type(l) .location(j) .crews  tat. ready 

:=  twot?; 

ini  if; 

u.ar.ac_type(l) . location ( j ) .recon . change 

:=    FALSE; 

u.ar.ac_type(.i)  .location(j)  .recon  .arrpn  .  chcnge 


=  falsi; 


IF  u.ar.ac  tyoed  ).  locatlon(j )  .recon.  delete 

THIN 
u  .ar .  ac__t  yp  e  (  i )  . location' j)  .recon  .delete 

:=  falsi; 

FCH  z  IN  1.  .irax. recon  LCCP 
u.ar.ac_type(i) .location( j). 

recon. capabllity(z)  :=  null _st ring; 

F.\r  iccf; 
fni  if; 

INI  LCOP;   —  location 
EM  ICC?;     —  types 
HIT  WHIN  success; 

F\E  LCC?; 


ILSIF  actionals  (ircdlfy)  TFZN 

NULL;    --  proeess_ac_type  in  UNITRIP3.C0!" 


ILSIF  action_is 'print )  03  action_ls(draf t ]  03 

action_is { verify'  THEN 
print er_on; 

FOR  i  IN  1.  .u.ar.number_of  ac_types  LOOP 

IF  act  icn_is  (draft)  TEI\:  NEW_PAGEJ  INT  IF; 

—  9irauth  sets 
buffer  :=  "AIEAUTH/"  5.  u.ar.ac_type  (l  ).iss  S. 

auth  &  u.ar  .ac_type(  i  )  .ac_aut  h.  iss  &  "//"; 
IF  nrint_with_delete( 

u.ar.ac_type(i) ,ac_auth .  delete N  THEN 

put_print er (del  &  buffer); 
ILSIF  print_wc_delete ' 

u  .ar. ac_type( i ) .ac_auth .charge . 


2Z& 


u  .dr.dc_.  typed)  .ac_auth. delete)    THIN 
put_printer( buffer) ;~ 

IF  u  .ar.ac_typed  )  ,ac_auth  .arpn  .change   TEIN 
print  cofrirent  ("AIRATH"   &,   Int_to   Str(D); 

ENT  it; 
fne  if; 

--   crewauth   set 
buffer    :=   "CRIVfAUTE/"  &   u.ar  .ac_type(i) .  iss   &.,auth 
&  u.ar.ac_type(i ) .crews_auth. iss  &   "//"; 
II   print_wit.h_delete(  u.ar.  ac.  typed  ) . 

crews   auth. delete)    TEIN 
put_printer(del   &    buffer); 
ELSII   print_wo_delete( 

u .ar  .  ac_type ( i )  .crews_ auth .change , 
u  .cir  .ac_type  (i )  .crews_auth. delete)    THIN 
put_printer{ buffer) ; 
II  u.ar.ac   typed  ). crews  auth. airpn. change  THIN 

print_coinrent  ("CRVATH"   &   Int_to_Str  (1 )  j I; 
INT  if; 
end  if; 

IF   action_is (draft)    TEIN 

draft   aid ("AIR  AUTHORIZATIONS"); 

ine  if; 

—  by   location 

FCR   j    IN  L.u.ar.ac    type(  i  ) .  nurrber   of_locations 

LCOF 

—  ai  rstdt  set 

buffer  :=  "aIRSTAT/"  &  u  .ar .ac_type(i ) .iss  & 
/PCSS:"  & 
u.ar.ac_  typed  ) .  location' j)  .  a  irstat .  possessed  & 
"/"  &  u .ar.ac_type( i ) .location ( j ) . iss  &  "/F^C:" 
5,  u.<ir.ac_type(i  )  .locat  ion(  j)  .airstdt  .frrc  & 
"/PPC:" 
&  u.ar.ac  tyue(  i  ).  location  { ,1 ).  airstat  .pmc  & 

//  ; 

IF   print_with_delete( 

u.ar.ac_type(i) . location( j) .a irstat .delete) 

TEIN 

put  printer(del  &  buffer); 
ELSIF~print_wo_delete( 

u.ar.dc_type(i  )  .location(j).dirs tat. change. 
u.ar.ac~tyr>e(i  )  .location  (j  )  .a  irstat  .delete  ) 

THIN 
put_printer( buf f er)  ; 
IF   u.ar.ac_type(i).location(j). 

airstat .ampn. change   THIN 
print_corrrrent  ("AIRSTA"   &    Int_to_S tr(i)   & 

Intto_Str(j)); 
INE   if; 
ine  if; 
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—  crewstdt    set 

buffer  :=  "CREWSTAT/"  &  u.ar.ac  type(i).iss  & 

/FORM:  & 

u.ar.ac_type(i).location(j)  .crewstat .  forred  & 
/  &  u. ar.ac  type{ i ) . locatioa( j ) . iss  & 
/READY:"  & 

u.ar .ac_ type (i ) . location( j )  .crewstat .ready  & 

IF  print_with_delete( 

u.ar.ac_type(i  ). location (j) . crewstat .delete) 

TEEN 
put_prir.ter(del  &  buffer); 
ELSIF  print_wo_delete( 

u.ar .ac_type (i )  .location (j )  .crewstat .change, 
u. ar.ac_type(i).loca tin n(j). crewstat. delete) 

put_printer(buffer) ; 

IF  u  .ar  .ac_type  (i  )  .location ( j  ) . 

crewstat  .arrpn. change   THIN 
print_corrrrent('%CP*STA"    S.    Int_to   Str(i)    & 
Int_to   Str( j) ); 
INT   if; 
fni  if; 

—  (  recon    set 

big_string    :=   "RECON/"   &  u.ar ,ac_type (i ) .issM&M 

"/"   s,   u.  ar.  ac_tyce(  i  ) .  locat  ion(  j  )  .  iss    &    "/"; 
IF   print_with_delete( 

u.ar.ac_type(i) .location(j) . reccn .delete 

ANT  NCT 
u.ar.ac_type(i)  .location  (j)  .airstat.ceiete'; 

TEEN 
nut_t>rinter  (del    &   big_string   &   "/")* 
ELSIF   print_wo_delete^ 

u.ar.ac_type(i)  .location(j) .reccn. change. 
u.ar.ac_type(i)  .location (j  )  .recon. delete;    THIN 
FOR   k    IN   1..    u.ar  .ac_ty?e(i ). location (j  )  . 

recon  .  nurrber_of  _capa  bilities   LOCI5 
big_string    :=   big_string   & 

u. ar.ac _type(i)  .locat lor.{  j)  . 

recon  .capability (k )  &  "/'; 
ENI  loop; 

big_string  :=  big_string  &  "/"; 
IF  Iength(big_string)  >   €9   TF.IN 
FOR  z  IN  REVERSE  1..69  LCOP 
IF  big_string(z)  =  '/'  TEEN 
number  :=  z ; 

exit; 

ene  if; 
ent  loop; 

put_printer(Extract(big_string,l,nurber-l)); 
put _pr inter (  Extract ( big_st ring .nurber, 


zed 


Length(big  string)  )  ) ; 
ELSE 

put_printer (big_string) ; 

end  if; 

ENI  IE; 

IF  action_is(drdft)  TEEN 
put_printer(nuli_string) ; 
j:ut_printer( 

*******  Hecon  Capability  Definitions  ******"); 
FOR  z  IN  1 . .u.ar. ac_type(i ) .location (j ) . 

recon .  nuTber_of  capabilities  LOG? 
Open (fyle, "TABLE. E-3",Hlad~Cnly) J 
ICCP 

buffer  :=  GET_LINE (f yle ); 

IF  u.ar.dc_  typed)  .  local  ioa(  j) . 

recon  .cape bility (z )  = 
Extract ( buffer, 1 .Position (":" .buffer )-l) 

TEEN 
put_orinter^ buffer) ; 
CLOSE(fyle); 

exit; 

ELSIF  ENr_OI_EILE(fyle)  THEN 
CLOSE(fyle); 

exit; 
end  if; 
end  loop; 
end  iccp; 
ENI  if; 

IF   u.ar  .ac_ typed  )  .location (  j) . recon. ampn .change 

TEEN 
nrint    corrrrent  ( "EECCN"   &    Int    to_Str(i)    & 
Int_to_Str( j)T; 
END   if; 

IF  action_is£draf t)  TEEN 

draft_aid(  AIR  STATUS"); 
END  if; 

END  LOOP;     —  locations 

END  LOOP;       —  ac_types 

IE  action_is(draf t)  TEEN 

mw_page; 

draf  t_aid("Al?  -  NE'*"  )J 
END  if; 

pri  nter_of f ; 
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ILSII  actionals (log)  TEEN 

—  clean  up  amplification  files 
ICE  i  IN  1..  max  ac_types  LOCP 

buffer  :=  Int_to_St  r(  i )  &  ".A^P"; 
CELETEC'aIRATE"  &  buffer); 
CILETE{  "CRWATE"  S,  buffer); 
FCR  J  IN  1 .  .max_locations  LOOP 

buffer  :=  Int  to  Str(i)  &  Int_to_Str M )  & 

".a^p"; 

DELETE ("AIRSTA"   &   buffer); 

riIZTI("CRWSTA"   &    buffer); 
rELITlC'RECON"    S,    buffer): 
END  loop; 
ENE    LCCP; 


ILSI 

nmi; 
eni  if; 

EN  I   p:'9cess_air; 

BEGIN 

two0    :=   'ez"; 

del    :=    'EELETE/"; 

auth    :=    '/AUTE:'"; 
ENI   urairj 
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PACKAGE  urairl  IS 

—    Interface   tc    the  wc difi cation   of  air  data 
PPCCIIUPE   process_ac_type; 
INI   uralri; 
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WITH  io,strlib, 

consio , 

urglobal , 

unitrepE, 

urairE  , 

urair2, 

urair3; 
PACKAGE  3CIT  urairl  IS 

USE  io,  ~  Open, CLOSE, GST_LINE 

strlib, 
consio  , 
urglobal , 
unitrepE, 
urairB, 
urai  r2, 
urair3; 

—  provides  for  rcodif ioatlon  of  AIR  data  for 

—  UNITREP  construction 

PEOCETIRE  process_ac_type  IS 

—  Initial  interface  to  the  rrodif  icat  ion  cf  dir 

—  inf orrrat ion.  The  aircraft  type  is  selected, 

—  then  aircraft  type  location  is  selected, 

—  (procedure  process_locat! on  -  urair2) 

—  then  aircraft  type  at  selected  location  status 

—  information  is  presented  for  trod  Lficat  ion 

—  (procedure  process_status  -  urair3) 

—  Lirectly  supports  AIRAUTE  and  CHEWAUTH  data  sets 

—  and  TELETE  for  each. 

index:  INTEGER; 
check_location:  BOOLEAN'; 
BEGIN 

authori zation_page :   LOOP 
f  ill_auth_inask; 
IE   u.ar.nurrcer_cf _ac_types   >=   rrdx_dc_types   TEEN 

index    :=   Tax~ac_types ; 
ELSE 

index    :=   u  .ar  .nurrber_of   ac_types+l ; 

en:  if; 

ECR  i  IN  1.  .index  LOOP 

IE   u.ar.ac_type ( i ) . iss    /=    null_string   TEEN 
putxy (5 .slo+i , blank) ; 
getxy_irrrredidte(£,slo^i  ,iey ) ; 

CASE   key    IS 

WHEN   no_input  '  space   => 

null; 

WHEN   x! tab   => 

process_auth(i, check_ location ) ; 
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IF  check_location  THIN 
process_locdtion( i ) ; 
f  lll_auth_rrask; 
ENE  if; 
WHEN  c  =>  —  change  name  only  for  misspelling 
clear_field(ie,slo+i,7); 
getxy_immediate(ie,slo+i  ,key) ; 
IF  key  /=  no_input  AND  key  /=  space  THIN 
getxy(17, slo  +  i , buffer, 6) ; 
buffer  :=  Char_to_Str (key )  &  buffer; 

—  verify  ac_typ%e 
Cpen(fyle  ,  TABLE. B-2  ,Eead_0nly) ; 
LOOP 

file_buffer  :=  GET_LINE (fyle) ; 
IF  buffer  =  file_buffer  TEEN 
CLCSE(fyle); 

u.ar .ac_type(i ) .iss  :=  buffer; 
process_auth(i ,check_location ) ? 
IF  check_location  THEN 
process_location(i) ; 
fill_auth  mask; 
ENE   IE; 

exit; 
end  if; 

IF   END_OE_FILE(fyle)    TEEN 
CIOSE(fyle)  ; 
error (23);    —   tyT?e   not    in    table   b-2 

exit; 

END   if; 

eni  loof  ; 

ELSE 

error(42);  --   invalid   dc_type 

putxy(16,slo+i,u.ar.ac    tyue ( i ). iss) ; 
ENI   if; 
WEEN   ques    => 

helpf'AlR   ACCESS"  ); 
view_tdble( "TABLE. E-2") ; 
f  ill_autli_mask; 
WEEN   OTHERS    => 

error(e);  — incorrect    input 

ENI  case; 
ELSE  —   new   ac_type 

getxy_immedidte (16, slo  +  i ,^ey  ); 
IF   key   /=   no_inuut   ANT   key   /=    space   TEEN 
getxy ( 1? , s lo^i  ,  buffer  ,6 )  ; 
buffer    :=   Char_to_Str(key )    S.    buffer; 

— verify   ac_type 
Open (fyle,"TA3LE. 3-2", Read    Only) ; 
LOOP 

file_buffer    :=   GET   LINI(fyle); 
IE   buffer    =    file    buffer    TEEN 
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CLOSE(fyle) ; 

u.ar.ac_type(i ) .iss    :=   buffer; 

u  .ar  .nurrber_of  _ac_types    :  = 

u  .ar  .nurter_of_dc_types   +    15 
process_auth(i, check_ location ); 
IF   check_location   TEEN 
process _locdtion(i)  ; 
fill   auth_rrask; 
END     il; 
exit; 
eni  if; 

IF   ENE_OF_FILI( fyle)    THEN 
CLOSF(fyle) ; 
error(33);  —   type   not    in    table    b-2 

exit; 
em  if; 
eni  locp; 
eni  if; 
eni  if; 

INI   LOCP;  —    for 

tldnK:_inst_area; 

putxy(Z,l?,"<ENTER>    to^Gontinue ,    Enter    <X>   to        6. 

"Reselec t :    " ) ; 
reselect    :=   rr<aric(44,17 j ; 

EXIT   authori zation_page   '*EEN   NOT    reselect; 
ENI   LOOP   authori  Zation_p<±£e ; 
ENI   prccess_ac_type; 

ENI  urairi; 
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PACKAGE  urair2  IS 

—  Interface  to  air  authorizations  and  location 

—  information 

PHOCIEUBI  fill_duth_rrask; 

PRCCZrURE  process_auth(i:  IN  INTEGER; 

check_locdtion:  OUT  BOOLEAN); 

rRCCEIUPE  proce ss_loca t ion(  i:  IN  INTEGZP); 

ENL  urair2J 
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'*ITE  Strlib,  —JANUS/ATA  library 

con  si o , 

unit  rep3 , 

urairB, 

urutil , 

urglbl , 

urglobdl , 

urair3; 
PACKAGE  3CIY  urair2  IS 

USE  strlit,  —  Extract 

consio , 
unit  rep 3  , 
urairB, 
urutil , 
urglbl ♦ 
urglc tai . 
urairZJ 

PRCCEIUPE  process_location(  i:  IN  INTEGER)  IS 
USE  strilfc; 

—  entry  point  to  modify  status  information  at  a 

—  particular  location 

PHOCEIUBE  location  inask  IS 

USE  strlio;        —Extract 
BEGIN 
border; 

putxy(0,l,"AIR  -  LOCATIONS"); 
putxy(27,3A"Aircraft  Type'"); 
putxy (8, 5 ,  "ACCESS" ) ;  putxy ( 42 , 5 , "Location" ) ; 
E03  2  IN  1.  .. rrax_locations  LOOP 
putxy (8 ,slo+z, " (  )"); 
putxy(32,slo+z,Extract (dashln,l ,30) ) » 
ENI  ioc?; 

putxy (£, 13, dashln); 
putxy(12,15,^<X>  at  ACCESS  (  )  next  to  desired   & 

^Locati  on" ) ; 
pu  txy(  15  ,16  ,"  (automatic  entry  into  first  empty   S, 

"location  for  NEW" ) ; 
putxy (12,17, "<C>  to  change  <s  location  name  —   & 

"misspelling  cnly"  ); 

putxy(12,18,"<?>    for   HELP"); 
putxy(12,20,'\ZNTIR>    for   next    (    )"); 
EMI    location_mask; 

PROCELURE    fill_location_mask    IS 
BEGIN 

locaticn_irask; 

putxy  (42,3, u  .ar.ac_  typed  )  .1  ss)  ; 

ECR  z  In  1..  u.ar  .ac_type (i )  .number_of_lo cations 
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LCCF 
putxy(32,slo+z  tu*ar .ac  type(  1)  .location  (z )  . iss)  ; 
ENE  LOCP; 

putxy(32,5lo+l,"H0MI  PLATl") ; 
ENE  fill_location_maski 

index:  INTIGIRJ 
3EGIN 

location_page  :  LOOP 
f ill_ location _rask; 
II  u.ar.ac_type(  i  ) .  number  of  _  Locat  ions  >= 

max_loca tions  TEZN 
index  :=  nax_loca tions ; 
ELSE 

index  :=  u.dr.dc  tyne  (i  )  .nurrber_of_locd  tionsxi; 
INI  if; 
ECE  j  IN  1.  .index  LOOP 

IF   u.ar  .ac_type  (i  ).  location  ( j )  .iss    /  = 

null_string   TEIN 
getxy   irrrrediate(i0,  slo  +  j  ,key  ) ; 
CASE   key    IS 

WHEN   no   inuut ! space  => 
null; 

WEEN   xltdb   => 

process_status( i , j) ; 

fill  location _m ask? 
WEIN  c  => 

IF  j  /=  1  TEEN 

getxy_iinn>ediate(32,  slo  +  j  ,  Key) ; 
IF  key  /  =  no  input  ANE  key  /=  space  THEN 
clear  f ield(32fslo+J ,30 ); 
mitxy'32,  slo+j  ,  Char_to_Str(  key ) )  ; 
getxy(33,slo+j, buffer ,29); 
buffer  :=  Ci?ar_to_Str(  key )  c.  buffer; 
u.ar  .ac_  typed ) .location ( j) .iss 

:=  buffer? 
process_status(i  ,  j  ) ; 
fill  ioca  tio.i_rrask; 
ELSE 

errcr(3€);   —  invalid  location  change 
putxy (3^,slo  +  j  , 

u.ar.ac_type(i)  .location(j).iss)  ; 
END  if; 
ILSE 

error (37) ; 

—  cannot  change  hcrreplate  location 
FNE  if; 
"WHEN  aues  => 

help("LOCATION"); 
f ill  lccationjrask; 
WHEN  OTHERS  => 
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error(e);  --incorrect    ir.Dut 

INE    CASE; 
5LSE  --   new   location 

getxy__iir.rrediate(32,slo+j  ,*ey); 
II  key   =  no_input   OF   key   =    space  TEEN 

fxit; 

ELSE 

get xy( 33, slo+j, buffer ,29) ; 
buffer  :=  Chdr_to_Str(xey)  &  buffer; 
u.ar.ac_type(i) .location' j ) .iss  :=  ruffe?; 
u.ar.ac_type(i)  .  nurrber_of  _locat  Ions  :  = 

u7ar.ac_type( i)  .3uirber_of_lccations  +  l; 
prccess_status(i,j)  ; 
fill  location_rrasK; 
EN I  if; 
END  IE? 
5NE  LCCP; 

blank_inst_area ; 

putxy70,l?7^<ENTER>  to  Continue,  ENTER  <X>  to   & 

"Peselect : ") ; 
reselect  :=  rrark(44,l?)  ; 
E7IT  WHIN  NOT  reselect; 
IKE  ICOP  location_page; 

INT  process_l ocation ; 

PROCELUFE  auth  Task  IS 
3EGIN 
border; 

putxy(0,l,"AlR  -  AUTHORIZATIONS"); 
putxy  ( 16  ,4,  "Aircraf  t        ^Aircraft       Crews"  d. 

Deployed" ) ; 
putxy (3,5, "ACCESS         Type         fiAuthorized"  & 

Authorized     Locations"); 
EOF.  i  IN  l..max_ac  types  LCCP 

putxy(4,slo+iA"(~)  (    )"  & 

(  )         --         (  )       —  ); 
eni  loop; 

putxy (0 , 13,dashln)  ; 

putxy (0,14, "<C>    to    CHANGE,    <E>   to    DELETE,    <H>    to        & 
"RESTORE,    <A>    to   AMPLIFY,    <?>    for    EELP"); 
putxy  (22, 15/'***  <X>    for   Access   **»    ) ; 

putxy(0,16,  'At    ACCESS    (    ) <X>    <?>    ,         & 

"<C>    to    change   Type    (MISSPELLED   ONLY)"); 
putxy(0,17,  "At    an  Autho  ri  Zd  tion    (     ) <C>   <D>   <H>"   S. 

'*  <a>  <?>"); 

putxy  (0  ,18,  "At   a    Location    (    ) <X>    to    view        & 

"the   Locations   of    the    tyce   aircaft"); 
putxy(22,?0,"<ENTER>    for    next    (    )"); 
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END   auth_rrask; 

FPOCETUFE    fill    auth_mask    IS 
BEGIN 

auth_rrask; 

ICE    i    IN   1.  .u.ar.nurroer_of_ac_types    LOOP 
putxy( 16.  si o  +  l  ,u.ar  .ac_typeTi ) .  iss ) ; 
If   u  .ar.ac_type(i ) .delete   TEEN 
putxy(8,slo  +  i,d_rrdrk); 

eni  if; 


15    u. ar. ac_type(i ) .dc_duth. change   THEN 

putxy(36,slo+i,star  J; 

IE   u.ar  .ac_type(  i  )  .ac_auth  .arrpn  .change   TEEN 
putxy  (38  ,slc  +  i  ,  a_iT<irk )  ; 

ENI  if; 
ene  if; 

II    u.ar.ac_type( i ) .ac_dUth. delete   THEN 

putxy(36,slo+i,d_mark)  J 
ENI    IE; 
putxy (40, slo+i,u.dr.dc_type(i).ac_dUth.iss)» 


IE  u.  ar  .ac_type( i ). crews_auth. change  TEEN 
put xy(S0,slc+i, star); 

IE  u.ar  .ac_type(  i  ).  crews_auth.atrpn.  change  THEN 
putxy  (52, slc  +  i  , a  mark  )'; 

em  if; 
eni  if; 

II  u.ar.ac_type( i ). crews_auth. delete  TEEN 

putxy  (50,  slc  +  i  ,d_rrari£  ) ; 
INI  if; 
putxy(54,slo+i,u.ar.ac_type(i) .crevs_auth.iss) ; 

putxy (69, slo+i , Int_to_S t r(u .ar .ac_type( i) . 

nuirber_cf_  locations)  )  ; 
ENI  loop; 
INI  fill_auth_mask; 

PPOCEIUPE  prccess  auth(i:  IN  IN1EGEP; 

check_location :  OUT  30CLZAN)  IS 
BEGIN 

rodify_airauth:  IOCP 
putxy ( 33 ,slo+i, blank); 
getxy_immediate(33,  slo  +  i  ,  Key)  ; 
CASE  key  IS 

vtfEEN  no_ini)Ut !  space  => 
EXIT  rrodify_dirdUth; 
WEIN  c  => 

IF  u.ar.ac_type (i ).ac  auth. delete  THEN 

errcr(31);        —  deleted/cant  modify 
ELSE 
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ICOP 

buffer  :=  getxy_digi ts(40 , slo  +  i ,2 ) ; 
IF  buffer  =  null_string  THIN 
putxy (40, slo+i7 

u.ar.ac  typed  ).ac  auth.iss); 
EXIT; 

ILSI 

u.ar. ac_type( i ) .ac_auth. iss  :=  buffer? 
u.ar .ac_type( i ) .ac_auth .change  :=  TRUE; 
u.ar.ac_type(  i )  .change  :=  TRUE; 
putxy(36,slo+i  ,star); 
putzy  (40,  slo^i , 

u.ar.ac_tyt>e(i).ac_auth.iss) J 

exit; 

ENP  if; 
5Nr  loop; 
ine  if; 

WHIN    a    => 

IF  u . ar .ac_type(i ). ac_auth .change    THIN 
process_coirirent  ("AIPATE"&    Int_t o_Str  (i  ) , 

u.ar.ac_  type(  i)  .ac_auth.  airpn) ; 
fill   auth  iraslcj 
FISI 

error(27);  --no    set    to    arolify 

ENI   if; 
T#EFN   d    => 

IF  u. ar. ac_type(i ). acauth. change   TEEN 

error(35);        —   set    changed,    can't    delete 
ELSE 

u.ar.ac_type( i ) . ac_auth. delete    :=   TRUE; 
putxy(36,slo+i  ,d_rra  rk)  ; 
TNE  if; 
WEEN    r    => 

IF  u.ar.ac_type(i ) .ac_auth. delete    TEEN 
u.ar.ac_type(  i)  .ac_<iutn. delete    :=   FALSE; 
TJUtxy  (38  ,slo  +  i,  olank)  ; 
ELSE 

error(34);  —   set    not   deleted 

ENI   if; 
*FEN    ques    => 

helpC'AIHAUTB" )  ; 
fill   dUth_irask; 
WEEN    OTHERS    => 

error(e);        —   incorrect    input 
ENL  case; 
ENI   LOOP   irodify_dirauth; 


modify_crevauth :    LOOP 
putxy(47,slo+i ,bldnk) ; 
getxy_irnrediate(47,slo  +  i,key) ; 
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CASE   key    IS 

WEEN   no_input ! space   => 
EXIT   rrodify_crewauth; 
WHEN   c    => 

IF  u.dr.dc    type(i) .crews_auth. delete   THEN 

error(3l7»*  —  deleted/cam  rroiify 

ELSE 
I0CP 

buffer    :=  getxy_digits (54 ,slo +i  ,2  ) ; 
IE   buffer   =   null_string   THEN 
putxy(54,slo+i  , 

u.<ir.dc_tyT.e(i)  .crews_duth.iss)  ; 
EXIT; 
ELSE 

u.dr .dc_type( i )  .crews_dutn. iss  :=  buffer; 
u. ar.ac_type( i ) .crews_auth. change  :=  TRUE; 
putxy (50 , slo+i,star) »™ 
u.ar.ac_type( i )  .change  :=  TRUE; 
putxy (54, slo+i , 

u.ar. ac_type( i ) .crews  autn.iss); 
EXIT; 
ENE  IE; 

eni  locf; 
ine  ir; 

WEIN  d  => 

IF  u. ar.ac_type( i ). crevs_auth. change  THEN 

process_comment ( "CHWATE"&  Int_to_St r( i )  . 

u.ar.ac_type(i)  .  crews_duth.drrpn)  ; 

f  ill_auth_rrask; 
ELSE 

errcr(27);        — no  set  to  arolify 
ENI  IE; 
WEEN  d  => 

IF  u.ar .ac_type (i ). crews_duth. change  TEEM 

error(35);   —  set  changed,  can't  delete 
ELSE 

u.ar.cc_type( i) .crews_duth  .delete  :=  TRUE; 

putxy (50 ,slo  +  i  ,d  rrark)  ; 
ENI  if; 
'aEEN  r  => 

IF  u.ar.ac_type(i ). crews_auth. delete  TEEN 

u .a r .ac_type( i ) .crews_auth .delete  :=  FALSE; 

putxy (52, si o+i , clank) ; 
ELSE 

error(34);        —  set  net  deleted 
EMI  if; 
WEEN  ques  => 

helpC'CRFWAUTE"); 
f  ill_auth_rrask; 
WEEN  OTHERS  => 

errcr(6);   —  incorrect  input 
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ine  casi; 

EM   IGOP   rrodif 7_crewautii; 

check_location    :-  P<irk(62,slo  +  i) ; 
ENE   process_auth; 

INE   nrairS; 
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PACKAGE  urair2  IS 

—  Interface  to  air  status  Information 

slo:  CONSTANT  :=  £;    —  screen  line  offset 

PROCZrUEI  blank_inst_area» 

FBOCILUPI  prccess_status(i, j :  IN  INTIGaH); 
INI  urair3J 
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WITH  io,strlio,  --JANUS/AIA  library 

consio , 
urgl tl , 
unitrepB , 
urairB, 
urutil , 
urglobal ; 
PACKAGE  BCIY  urair3  IS 
USE  consio, 
urgltl , 
unitrepE, 
urai r3  , 
urutil t 
urglo tal ; 

—  This  package  provides  the  routines  necessary  to 

—  rrodify  dir  stdtus  information. 

—  (AIRSTaT,  CRE'#STAT,  FZCCN  data  sets) 

PROCEEURE  blank_inst_area  IS 

BEGIN 

FOR   y    IN    14.  .20   LCCP 
isutxy  (0  ,y  ,blankln  ) » 

ENI  lcop; 
INI    tlank_inst_area ; 

PROCEEURE   Drccess_stdtus(i, J:    IN    INTEGER)    IS 
USE    strlib; 

PROCEDURE   reconjnask   IS 

BEGIN 

putxy (8, 9, "(    )  -3-    Recoridissdnce   Capability 

"primary ")» 

putxy ( 10  ,11 ," S, 

putxy (10, 12,    

ENE    recon_iraskJ 

PR0CIIU3E    status_rask    IS 

USE    strlib;  —    Extract 

BEGIN 

torder; 

outxy(e,l,"AIR   -   STATUS"); 

putxy (0,3  /'Aircraft    Type "); 

putxy (31,3," (    )        Location"); 

putxy(48,3AExtract(dashln,l,30) }  ; 

putxy(6,e,    (    )  -1-   Aircraft'); 

Dutxy(48,5, "(    )  -2-   Crews"); 

putxy(2,e  ."Possessed  EMC      tiFPC        NI*C"); 

putxy(48, 6, "Formed  Heady"); 
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putxy(£,7." — ");    putxy ( 16 ,7, " —  --  — "); 

putxy(50f7,    —  — "); 

recon   irask» 

putxy  (2,13,dashln); 

putxy(0,  14,  "ENTER    <C>  -  to  CHANGE  -   "  £> 

/fin  fields  1,2,3  only)"); 
putxy(e,15,"<L>  -  to  EELETE  -   (at  Locdtion  will    & 

"rELETE  ALL  information)"); 
putxy(8,16, 

'<2>  -  to  RESTORE  -  (restores  deleted  fields)"); 
putxyt(8,17, 

<A>  -  to  AMPLIIY  -  (in  fields  1,2,3  only)"); 
putxy(8,18,"<?>  -  for  HIIP   -  (all  fields)"); 
putxy(0,19,/TEEN:  ENTIR  Required  information."); 
putxy(8,20,"(an  <ENTER>  with  no  inf orrration  is   S. 
"assurrrred  to  fce  NO  CHANGE)"); 
INI  stdtvs_rrask; 

FPOCELu'EE  fill_recon  IS 
3EGIN 

recon_rrask; 
putxy(54,S, 

u.  ar.ac  typed  ).  location(  j  ).  recon.  capability ( 1) )  ; 
ICR  k  IN  2. .6  LOOP 
putxy (10+(fc-2)*ll ,11, 
u.ar.ac  typed  ).  lo cat ion(j  }  .recon. capabili  ty(k) )  ; 
INI  LOCP; 

ECP  k  IN  7.  .11  LOOP 
putxy(10+(k~7)*ll,12, 
u.ar.ac_tyoe(i).location(j) .recon. ca pa  Dili ty(k)) ; 
INI  lccp; 
II  u.ar.ac_tyoe( i ). location(j ; .recon. delete  TEEN 

putxy(12,9,d_Tark) ; 
ELSIE  u  .ar.ac_type(i) .location (j ) .recon. change  TEEN 
putxy(12,9,star) ; 
IE  u  .ar.ac  typed  )  .lo cation(j  )  . recon. ampn.  change 

TEEN 
putxy  ( 14,9,a_rrark  ) ; 
5NE  ie; 
ini  if; 

ZNI  fill  recon; 


PROCEIURE  fill  status_rrask  IS 
BEGIN 

status_rrask; 

putxy (14,3, u .ar.ac_type( i ) .iss) J 
uutxy(48,3,u.ar.ac_type( i).location(j).iss); 
II  j  =  1  TEEN 

putxy(48,3,"E0M  PLATE"/; 
INI  ie; 
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II  u.ar.ac_type(i ).location( j} .delete  TEEN 

putxy  (35,3  ,d_rrark); 
EISIF  u.ar.ac_type(i) .location(j). change  TEEN 

putxy(35,3.star); 

ini  if; 


II  u.ar.ac_type(i) .location( j) .airstat .delete  THIN 

putxy  (12,5  ,d_rrark) ; 
ELS  IF  u.ar.ac_type(i).location(j) .airstat . change 

TEEN 
putxy (10 ,5 ,star ) ; 
IF  u  ,ar  .ac_type (i ) .loca tion(  j ) . 

airstat  .ampn. change  TEEN 
putxy  (12,  5,a_rra  rk) ; 

ine  if; 
ini  if; 

putxy(5,7, 

u  .ar  .ac_  typed  KlocationM)  .airsta  t.  posses  sea) 
putxy(16,7,u.ar.ac_type(i)  .location(j)  .airstat.  fire) 
putxy(  22, 7, u.ar.ac_type(i).  location  (j).airstat.prrc) 
putxy(28,7,u.ar.ac_type(  i ) .location (j) . airstat.  nmc) 

II  u. ar.ac_type( i ). location' j ) .crewstat .delete  TEEN 

putxy  (5275  ,d_rr ark  ) ; 
IIS  IF  u.ar.ac_type(i) .location(j) .crewstat .change 

TEEN 
putxy (52,5 ,  star ) J 
II  u  .ar  .ac_type(i ) .locdtion(  ;  ) . 

crewstat  .ampn. change  TEEN 
putxy ( 5 4,5, a _ mark) ; 
INT  if; 
ini  if; 

putxy(50,7, 

u.ar.ac_type(i).location(j)  .crewstat.fcrired)  ; 
putxy(62,7 , 

u.ar.ac_type(i) .location(j)  .crewstat. ready) ; 

fill_recon; 
ENE  f ill_status_rrask; 

PROCirUPF  prccess_recon(index,x,y :  IN  INTEGER)  IS 
—  processes  a  single  reccn  set 

USE  io;    — Cpen, CLOSE, GET  LINE 

USE  strlih;  —  Extract, Po si ti on, Char_to_S tr ,Int_to_St r 

BEGIN 

getxy_iirrrediate(x,y, key); 

CASE   key    IS 

T*EFN   no_input    => 

null; 

tfHEN    space   =>  —   delete    set   rrove    others   up 
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FOB  k  IN  index.  .irax_recon-l  LOOP 
u  ,ar.ac_type(  i)  "^location  (j  )  . 

recon. capability!  k )  :  = 
u .ar .ac_type(i)  .locaticn(j)  . 

recon. cap ability(k+l)  I 

in:  loop; 

u.ar.ac_type(i) .location(j)  . 

reccn. capability  (rrax_recon  )  :=  null_strin^>* 
u .  a r . a  c_t  yp e  ( i )  •  1  o  ca t i  o n  ( j  ) . 

recon. change  :=  TRUE; 
IF  u.ar .ac_type (i ) . location( j) . 

recon. nurrber_of  capabilities  >  2  TEIN 
u.ar.ac_type( i) .lccation(j)  . 

recon. nurrber_of_capa  bili  ties  :  = 
u.ar.ac_type(i)  .location(j  )  . 

recon. number_cf  capabilities  -  1J 
ENE  if; 
fill_reccn» 
ttHEN  OTHERS  =>        —  add  new  recon  to  the  set 
IF  u.ar.ac_type(i). location (J)  . 

recon. nurrber_of  _capabilit  ies  >=  F,ai_reccn  THEN 
error(40)j  —  rrax  sets,  delete  first  then  add 
ELSE 

FCB  k  IN  REVERSE  index+1 .  .rrax_rec en  LOOP 
u .  a  r .  a c_  t  yp  e  (  i  )  .  1  o  ca  t  i o  n  (  j  ) . 

recon  .capability (k)  :  = 
u.ar.ac_type(i) .location ( j) . 

recon. capability (k-1 ) ; 
ENE  LCCP; 
u.ar.ac_type( i) . lecati on ' j ) . 

recon.  capability(  index  )  :=  null_string; 
fill_recon ; 

buffer  :=  Char_to_Str(key ) ; 
putxy(xf y, buffer) ; 
get xy(x+l,y, file  buffer,?) ; 
buffer  :=  buffer  6.  file_buffer; 
Open (fyle," TABLE. £-2"  ,Eead_Cnly); 
ICC? 

file_buffer  :=  GET_LINE(  fyle  ) ; 
file_buffer  := 

Extract (file  buffer  ,1, 

Position'"  :" ,file_buffer)  -1); 
IF  file_buffer  =  buffer  TEEN 
ClOSI(fyle) ; 
u.ar.ac_type(i) . location ( j  ) . 

recon. change  :=  TRUE; 
u.ar.ac_type(i)  .location  (  j  )  . 

recon .capability (index)  :=  buffer; 
u.ar.ac_type( i )  .location ( j) . 

recon. nurr  ber_of  capabilities  :  = 
u.ar.ac_type(i)  .location ( jT  . 
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re  co  n.nufrter_of_  capabilities  +  1J 

EXIT; 
END  if; 
IE  END  01  FILl(fyle)  I'EEN 

CLOSE(fyle); 

error(41)»ii        —   invalid    recon   capability 

putxy(x,y  ," — -*' ); 

exit; 
END  if; 
end  loop; 
eni  ie; 
end  case; 

—  clean  up  null  strings  due  to 

—  faulty  entries/deletions 
FOB  k  IN  l..rax_reccn  LOOP 

IE  u.ar.ac_type(i).iocation(j). 

recon  .capability (k)  =  null_string  THEN 
FOR  1  IN  k.  .max_recon-l  LCCP 
u.ar.ac_type(i) .  locat  ion ( j ) . 

recon  .capability( 1)  :  = 
u.ar.ac_type(i).location(j). 

recoa. capability' 1+1)  ; 
END  LCCP; 
u.ar.dc_type(i) .location(j). 
recon. capability  (irax_recon)  :=  null_string; 
END  if; 
END  LCCP; 
ENI  process_recon ; 


BEGIN 

rrodify_status  :  LOOP 
f  ill_status_rrask; 

check_locdt ion :  LOOP 
putxy(32,3,blank); 
getxy_iwnediate(32,3,ke2 ) ; 
CASE  kev  IS 

VEEN  ao_iaput j space  => 
EXIT  check_location; 
VEEN  d  => 

IF  u.ar .ac_type(i ) .locat ion( j ) .change  OR 
u.ar.ac_type(i) .locat ion ( j) . 

airsta  t .change  OR 
u.ar.ac_type(i). locat ion(j). 

crews tat. change  OR 
u.ar.ac_  typed  ).location(j). 

recon. change  THEN 
error(35);      —  changed,  can't  delete 

ELSE 

u.ar.ac_type( i) .location( j ) .delete  :=  TRUE; 
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u ,ar .  dc_type( i)  .locdti  on  (  j  )  . 

a irstat .delete  :-   THDIJ 
u .ar .ac_type( i) . location ( j )  . 

crevstat. delete  :==  TRUE; 
u.ar.ac_type( i).location(J). 

recon. delete  :=  TRUE; 
putxy (35,3,  d_Fark) 
putxy(  ie,5,d~rrark) 
putxy (52,5, d_mark) 
putxy  (12,9, d_irc*rk) 

ent  ie; 

WHEN  r  => 

IF   u.ar.dc_type(i  )  .loc<ition(  j  )  .delete   OB 
u.ar.ac_  typed  )•  location ( j  ). 

airs  tat. delete  CR 
u.ar.ac_type(i  )  .locdtio*i(j  ). 

crewsta t. delete   OR 
u.ar.ac_ typed  )  -locatioa(  j) . 

recon. delete   TH].:N 


u.ar.dc_type(i)  . lccatl on( j ) .ielete 
u  .ar  .ac_tyne ( i ) . location ( j ) . 

airs  tat. delete 
u.ar.ac_type(  1-)  .  location  (  j  )  . 

c  rewsta  t  .delet  e 
u.ar.ac_type(i) . location ( j) . 

recon.  delete 
putxy (35,3 , blank) : 
putxy(10f5,blanfc)  ; 
putxy (52,5, blank) ; 
putxy(12,9, blank)  ; 
ELSE 

error(34);  —   not    deleted 

ENI   ie; 
VEEN   aues   => 

nelpC'LCCATICN"); 
fill   statusjraskj 
WEEN    CTHERS    => 

error(6);  --   incorrect    input 

ENI  case; 
EM   LOC?   check   location; 


=  tals:l 

=    FALSI 


T  C   7 


-    rALSI 


trodify   airstat :    IOOP 
putxy(?,5,blank) ; 
getxy_ijrredidte(7,5,key) » 
ZASI   key   IS 

VEEN    no_in"out  {  space   => 
EXIT  rrodify_airstat ; 
WEEN    c    => 

IF  u.ar.ac_type(i ) . locaticn(  j )  . 

dirst<*t.  ielete    TEEN 
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error(31);      --  cant  rrodify  deleted 
ELSE 
LOOP 

buffer  :=  getxy  digits (5 ,7,2) ; 
EXIT  WHEN  buffer  =  null_string; 
u.dr  .dc_type( i )  .location(  j)  . 

airstat  .possessed  :=  buffer; 
u.ar.ac_type(i).location(j). 

airstat .change  :=  TRUE; 
putxy(10,5, star) ; 

u.ar.ac_type(i) .location ( j ) .change  :=THUE» 
exit; 
eni  lcop; 

putxy(5,?,u.ar.ac_type(i) . location (j ) . 

airstdt. possessed) ; 
LOOP 

buffer  :=  getxydigi ts(16 ,7 ,2 ) ; 
EXIT  WEEN  buffer  =  null_string; 
u.ar.ac_type(i) .location(j). 

airstat.  frnc  :=  ouffer 
u.ar  .ac__type(i )  .locati  on  ( j  ) . 

airstat .change  :=  TRUE 
putxy (10,5, star) ; 

u.ar .ac_tyue( i ) . location (j ) .change  :=TRUE 
EXIT; 
ENE  loop; 
putxy(16,7,u.ar.ac_type( i) .location^1* . 

airstat.  f  tic)  ; 
ICCP 

buffer  :=  getxy_di#its (22 ,7 ,2 ) ; 
EXIT  WHEN  buffer  =  null_ string; 
u.ar.ac_type(i ) .location ( j ) . 

airstat. pirc  :=  buffer; 
u.dr.ac_type(i)  .location( j) . 

airstat .change  :=  TEUIJ 
putxy(10,5, star); 
u.ar .ac_type(i )  .location ( j )  .chdnge  :  =  TBUEJ 

exit; 
end  loop; 

putxy(22,7,u.ar.ac_type(i).locctticn(j). 

ai  rsta  t.pirc)  ; 
LOOP 

buffer  :=  getxy_digi ts(28,7,2 ) ; 
EXIT  WEEN  buffer  =  null_stringj 
u.ar.ac_type(i) .location(j) . 

airstdt.nrc  :=  Duffer; 
u.ar.ac_type(i) . locati on ( j) . 

airstat  .change  :=  TRUE; 
putxy( 10, 5, star); 
u.ar.ac_tyoe(i) .location ( j ) .chdnge  :=T3UEJ 

exit; 
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end  loop; 

putxy(28, 7,u.ar.ac_type(  i)  .location (j  )  . 

airs  tat .  nrrc)  ; 
IF*Str_to_Int(u.ar.ac_type(i).location(j). 

airstdt .possessed)  /= 
Str_to_Int(u.ar.ac_type(i).location(j). 

airstat . fmc)  + 
Str_to_Int(u.ar.ac_type(i) .locaticn(j) . 

airstat  .prrc)  + 
Str_to_Int(u.ar.ac_type(i  ).locatlon(j) . 

airstat  .nrc )   THIN 
error (38) ; 

—  possessd/fmepmc  .nmc  don't  sum 
END  IF; 

INI  if; 
WHIN  a  => 

IF  u.ar.ac  type( i ). location( j  )  .airstat .change 

TEEN 
process_corrirent  ("AIRSTA"&  Int  to_Str(i)  & 

Int_to_Str ( jT, 
u.ar.ac_type(i).iocation(j).airstat.arrpn); 
f  ill_status_rnask; 
ELSE 

error(27);      — not  changed 
INI  if; 
VEIN  d  => 

IF  u.ar.ac  typed ). locationt j ) .airstat . change 

THE  N 
error(3w);      — set  rrodif  ied/can  't  change 
FISI 

u.ar.ac_type( i) .location ( j ) . 

airstat .delete    :=   TRUE; 
putxy (10,5,d_rarK ) ; 

—  also    delete    recon 

IF  u.ar.ac_type(i)  .location (j) . 

recon  .nurrber_of_capabili  ties  >  Z 
TEEN  u.ar.ac_type(i).location(j). 

recon. delete  :=  TRUE; 
outxy(12,9,d_rrark)  ; 
FN!  if; 
INE  if; 
WHEN  r  => 

IF  u.ar.ac_type(i).location(  i).  airs  tat. delete 

THEN 
u.ar.ac_type(i)  .location(j) . 

airstat  .delete    :=    FALSE; 
putxy(10,5,blanlO  ; 
ELSE 

error(34);      —   not   deleted/can 't    restore 

ENr  if; 

WEEN   cues   => 
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helpf'AIRSTAT"); 
fill  status_rrask; 
WFIN  OTHERS  => 

error(6);         --  in  correct  input 

ene  case; 

iNI  LOOP  rr:>dify_alrstat; 

irodify_crewstat :  LOOP 
putzy(4S,5,blanfc); 
getxy_irrmediate(4S,£,key)  ; 
CASS  key  IS 

WHEN  no_input i space  =;- 
EXIT  modify_crewstat; 
WHIN  c  => 

IF  u.ar.ac  typed  )  .location  ( j ) .  crew  s  tdt.  delete 

THEN 
error(31);      --  cant  jodify  deleted 
ELS3 
LOOP 

buffer  :=  getxy_digits (50 ,? ,2 ) ; 
EXIT  WEEN  buffer  =  null_string; 
u.ar.ac_ty?e(i) . location( j) . 

crewstdt . formed  :=  buffer 
u.ar.ac_type(i)  .location(j). 

crewstat. change  :=  TRUE 
putxy(£2,5,star); 

u .ar .ac_tyoe( i )  .locations  j)  .change  :=TBUE 
EXIT? 

ini  loop; 

putxy(50,7,u.ar.ac_type(i)  . location  (j)  . 

crewstat . forced) » 
LOOP 

buffer  :=  getxy  digits(62,?,2); 
EXIT  WEEN  buffer  =  null_string; 
u.ar.ac_type(i) . location! j ) . 

crewstat  .ready  :=  buffer; 
u.ar.ac_type(i)  .locaticn(j). 

crewstat. change  :=  TRUE; 
putxy (52, 5, star) ; 
u. ar.ac_tyue( i )  .location ( j ) .change  :=TRUE; 

exit; 
ENE  loop; 
putxy(62,7,u.ar.ac_type(i).location(j). 

crewstat . ready)  ; 
IE  Str_to_INT(u.dr.ac_type (i).location(j). 

crewstat.  forrred)  < 
Str_to_Int(u.ar.ac_type(i)  .locatlon(j)  . 

crewstdt. reddy)  TEEN 
error(39);    — crews  ready  >  crews  forred 
ENE  if; 
ine  if; 
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VEIN   a   => 

IF   u.dr  .dc_ typed  ) .  location  (  j  ) . 

crewstat. change   TEEN 
process_comir,ent  ("CRVSTA"   &    Int_ to_S tr( i )    & 
Int_to_Str(j)tu.ar.cic_type(i).lccaticn(j). 

crewstat  .arrDn)  ; 
fill  status  Tiask; 
ELSE 

errcr(2?);  —   ao   set    to   errplifv 

INI  if; 
WEEN    d    => 

IF  u. dr. ac_tyT)e(i).lo:dtion(j). crewstat. change 

TEEN 
error (35) ; 
ELSE 

u.ar.ac_type(i)  .lccation(j)  . 

crew stat. delete    :=   TRUE J 
putxy(52,5f d  mark); 
EM   if; 
WEEN    r    => 

IF  u.ar.ac_type(i) .location(j). 

crewstat .delete  TEEN 
u. ar.ac_t ype( i ) .locationfj)  . 

crewstat .delete  :=  FALSE; 
putxy(52,5,blaak); 
ELSE 

error(34);      — rot  deleted/can  ' t  restore 

eni  if; 

WEEN  ones  => 

help(" CREWS TAT"  )i 
fill  status  mask? 
WEEN  OTHERS  => 

errcr(6);  —   incorrect    insut 

ENI  case; 
EM   LOCP  modify_crewstat; 

rrodify_recon  :    LOCP 
putxy (9  ,9  .blank) ; 
getxy  immediate (9, 9, key ); 

CASE    key    IS 

WEEN   no_input i space   => 

EXIT   modify _recon ; 
WEEN   c    => 

IF   u.ar.ac_ type ( i ) . location( j  )  .recon. delete 

TEEN 
error(31);  --   cant    rrod  if  y   deleted 

ELSE 

putxyf 12, 9. star) ; 

fclank   inst_area ; 

n\:txy(8f15t"FCR   RICCN    CHANGES..."}; 

putxy(8.16,  "<INTEB>   -   r*o    tc    next    item">; 
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putxy(8,17,  'space   -  erdse  this  iterr"); 
putiy(8,18f 

all  others  -  add  iterr  at  this  location"); 
.  process_recon(l ,54,9) ; 
FCR  k  IN  2. .6  LOOP 

process_recon(k,10+(k-2)*U  ,11} ; 

ene  loop; 

FOR  k  IN  7.  .11  LCCP 

process_recon  (k,10+(k-7)*ll  ,12}  ; 
ene  loop; 
em  ie; 

WEEN  d  => 

IF  u.ar.ac_tyt>e(i ) . location ( j ) . re con. change 

TEEN 
process_cownent ("RECCN"  &  Int_to_Str(i)  & 
Int_to_Str(j)  ,u.ar.ac_type ( i )  .location (j )  . 

recon. ampn) ; 
fill_status_rrask; 
ELSE 

error(27);  —  set  not  changed/can't  .arslify 
END  IE; 
WEEN  d  => 

IF  u.ar.ac  tyue(i ) .location ( j ). re con. change 

TEEN 
errcr(35);      --  cant  delete  podifiec  set 
ILSI 

u.ar.ac_type(i) .location (J  •  . 

recon  .delete    :=   TRUE; 
putxy{12,9,d  rrark) ; 
ENE   if; 
WEEN    r   => 

IF  u.ar.ac   tyoe (l  )  .locati on(  j ). recon. delete 

TEEN 
u. ar . ac_type( i ) . loca tion( j ) . 

recon. delete    :=   FALSE; 
outxy(12,9, blank) ; 
ELSE 

error (34);  —   not   deleted/cant    restore 

ENE  if; 
WEEN    ques    => 
helpC'RECCN"); 
view_ta tie ("T ABLE. E-3" ); 
f  ill_status_rrask; 
WEEN    OTEERS    => 

error(6);  —   invalid    input 

ENE   case; 
END   LCCP   rrodify_recon; 
clank   inst_dredj 
IE   u.ar.ac_type(i).locaticn( j ^ .delete   CR 

u.ar.ac_type( i) . locati on( j ) .airstat. delete   OR 
u.ar.ac_type(i).locdtion(j) . c re wstdt. delete   OR 
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u.ar.ac   typed  )  .location  (j  )  .recon  .delete   TEIN 

FUT(bell);' 

putxy(13  ,16,  j'Data   is    to   be  deleted  ,tt  insure        & 

"that    the    corresponding"); 
putxy(8,17,"data   items  are  adjusted    in   another"  & 

STATUS    disldy.    (if    required)"); 
putxy(30,19,"<ENTEF.>    to   Continue   "); 
getxy_ immediate (52, 19, key) ; 
5NE   if; 

tlank_inst_areaj 
putxy(0,17,"<ENTER>    to    Continue,    Enter    <T:    to        & 

"Reselect : ") ; 
reselect    :=   mark(44,17) ; 
EJIT   modify_status   WHEN    NCT    reselect; 
INI   ICC?   modify_status; 
ENI   process_status; 

INE  urairZ; 
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WITH  io,  —  JANUS/AEA  Library 

printio  , 
urgltl , 
•urglobal , 
urlocalA, 
uni  trepA; 
PACKAGE  I0TY  initialA  IS 

USE  io,  --  Open, CLOSE, IELETE 

printio , 
urgltl , 
urglobal , 
urlocalA , 
unitrepAJ 

—  This  package  is  used  to  form: 

—  the  initial  workfile  (ONIT000A), 

—  elements  of  the  local  data  structure 

—  the  initial  program  status  file  (STATUS), 

—  and  the  initial  cross  reference  file  (CROSSREE). 

—  When  urtest  is  incorporated  the  test  file 

—  TIST000  is  also  formed. 

—  The  INITIALA.COM  file  resulting  from  this 

—  package  should  net  ce  distributed  to  all  users. 

—  Cnly  thnse  organizations  required  to  set  the 

—  UNIT000A,  STATUS  and  CROSSREF  external  files 

—  should  have  access  to  this  code. 

—  UNIT000A,  STATUS  and  CBOSSREF  files  are  added 

—  to  the  originding  units  UNITREP  MASTER  DISK  after 

—  initialization  has  been  performed. 


fyle:    IILE; 

serial_dtg:    STRING(ie); 
-#      test_number:    INTEGER; 

BEGIN 

initialize    test   data   -   sets   A:TEST000    to    0 

-#  IEIETE("TEST000"  )J 

■*  FUT("Creatin«  new  TIST000. . ." ) J  NIV_LINE; 

■#  Create(fylef  TEST000", Write  Only); 

-#  Cpen(fyle,"TEST000",Write_Only)  ; 

•#  test_number    :=  0; 

■#  PUT(fyle  ,test_number); 

■#  CICSE(fyle); 

■a  PUT("Put    of   0    to   TEST002   complete...    " )J 

-#  new  line;  new  line; 


288 


--  Initialize  the  prograir  status 
program  .unit  :=  ship; 
prcgrarr  .initial_entry  :=  TRUE; 
program. print_trailer  :=  FALSI; 
program .message_transmitted  :=  FALSE; 
FOR  i  IN  action  RANGE  draft.. quit  LOCP 
urogram.  current_act  ion(i)  :=  FALSE; 

eni  lccf; 

FOR  i  IN  areas  RANGE  pers.. local   LOCP 
urogram  .current_area (i)  :=  FALSI; 

ENI  loop; 

FOR    i    IN    format    RANGE   msg..text    LOOP 
program.  current_f  orira  t(  i  )    :=   FALSE; 

INI  loop; 

prograrr  .print  ing_line    :=   i; 

program. workfile    :=  "UNIT00Z"; 

i)ELETE(  "status"  ); 

Createffyle, "STATUS" ,Write_Cnly ) ; 

Write (fyle  .program) ; 

CLOSI(fyle); 

PUT("Write  to  STATUS  complete..."); 

niw^lini;  new_line; 

—  initialize  UNIT000 

u.l. change  :=  FALSE; 

u.l. status. transmitted  :=  FALSE; 

u.l  .status  .last_serial  :=  "000"; 

u  .  I. status .feed er_report  :=  FALSI; 

u. 1. status .unit_id  :=   "; 

u.l  .status  .current_serie*l  :=  "001"; 

u.l.  status. ampn. change  :-  FALSE; 

u  .  1 .  status  .ampn .number_of _iines  :=  0> 

u.l .message. precedence  :=  priority; 

u. 1. message. dtg  :=   "j 

u.l .message .o riginator_dddress  :=   "; 

u. 1. message. classification  :=  confidential; 

u -1 .message. declassification  :=   "; 

u.l  .operati on  .underway  :=  FAISE; 

u. 1 .operation .codeword  :=    ; 

u  .1  .operation  .plan_org_number  :=   "; 

u. 1. exercise. underway  :=  FALSE; 
u  .1  .exerci se. nickname  :=   "; 

u.l  .position. change  :=  FALSE; 

u.  1  .position. lat_long  :=  FALSE; 

u.l  .position .present^location  :=    ; 

u.l. position. dtg  :=   " J 

u.l  .position. ampr.  .change  :=  FALSE; 
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u  .1  .position. anrpn  .nuirber_of  _lines    :=  0; 

u.l.reir  arks,  change    i-  FAISE; 
u.l.reirarks.nvmber_of_pages    :=  0; 
TCP.    i    IN    1 .  .FdX_rrrks   pages   LCCP 

u.l. remarks. plge(il. change    :  =  FALSI; 

u. 1. remarks .page(i) .number  of  lines    :=  0; 
INI  lccp; 


iilitf("u\,it020a" ': ; 
Create(fyle,"UNIT000A",Write_CnIy); 

Open  (fyle,  "UNI T000A'" ,  Wri:e_0nly)  ; 

Write(fylefu); 

CLOSI(fyle); 

PUT("f*rite  to  PNIT200A  Complete..."); 
NIV_LlNIi  NE\f_LINEt 

—  set  up  the  cross  reference  file 

serial  dtg  :=  "000  ddhhmmZMKMyy  ; 

DEIITI("C5CSSBIF"); 

Create (  fyle/'CROSSREE",  Write_Cnly)  ; 

PUTffyle, serial  dtg);  NEW  LINE(fyle); 

CLOSE(fyle); 

PUT("PI]T  to  CROSSREE  Complete..."); 

niv_iim;  niw_iine; 

ENI  initialAJ 
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PACKAGE 


V»ITE  io  , 

urgltl , 

uradrrinE, 

urairB, 

uni  trepE; 
ECIY  initialE  IS 
USE  io; 
USE  urgltlj 
USE  urairE; 
USI  uradrrinB; 
USE  unitrepE; 

—  initialize 


--  JANUS /ATA  Librarv 


;he  'E'  data  structure 


twc0 : 
fyle: 


sthing; 
fiii; 


PRCCEEUBE 
BEGIN 


zero_locdtion(i ,  J :  IN  INTEGER)  IS 


u.ar.ac_typ 
u.ar .ac_tyc 
IE  i  =  1  TE 


ro  lo cat  ion  set  ( i , i ) 

.  location( j )  .change  :=  FALSE; 

.  locat  lonH  )  .delete  :=  FALSE; 


-  ze 
e(i) 
e(i) 
IN 

-  present    position 
ype(i ) . locations j) 


u.  ar.  ac 
ELSE 

u.ar.ac_type(i) .locdtion(  J)  .iss  :  = 
INI  IE; 
u.ar.ac_typ 
u.ar.ac_typ 
u. ar.ac_typ 
u.ar .ac_typ 
u.ar.ac_typ 
u.ar ,ac_typ 
u.ar.ac    tyo 


u.ar.ac_type 

u.ar.ac_type 
u. ar.ac_type 
u. ar.ac_type 
u.ar .ac_type 
u. ar. ac_type 

u.ar.ac_type 

u.ar.ac_type 
u .ar .ac_type 
u.ar.ac_type 


i) 
i) 
i) 
i) 
i) 
i) 
i) 


loca 

leca 
lcca 

lOCd 

loca 
loca 

lOCd 


tionf 
tion  i 
t  ion  ( 
ticn( 
tion( 
t  ion  ( 
tion; 


.1) 


i ) 


.airstat .change    :=   FALSE; 
.di rsidt .de] ete    :=  FALSE; 
.airst at .pos sessed    :=    two0; 
.ai  rs  tat . :  rrc     :=    two?; 
.airstat  .pirc    :=   two0J 
.airstat.nmc    :=   twcZ; 


i )  .loca 


i) 
i) 
i) 
i) 
i) 

i) 

i) 
i) 
i) 


1  O  C  d 

loca 

loca 

lOCd 

loca 

lOCd 

c 

loca 

lOCd 

loca 


tion( 
airst 
ticn( 
tion( 
tion{ 
t  i  o  n  ( 
tion( 
c 
tion( 
revst 
tion( 
tion( 
tion( 


J) 

J>  • 

airstat  .arrpn  .change    :=   FALSI; 

j). 

at  .ampn  .nurrber_o:_lines    :=   Z) 
j )  .crews'  at .change    :=    FALSI; 
j )  .crewstat  .delete    :=   FALSE; 
j ) .crew stat  .  formed    :=    two  2; 
j ) .crewstdt . ready    :=    twotf; 

j). 

rewstat  .arrur.  .charge    :=    FALSE; 

j). 

at 

J) 
j) 
j) 

n 


.arrpn.  nuirher_of_lines    :  = 
.recon .change    :  =   FALSE; 
.recon. delete    :=    EALSE; 
.recon. 
:urrbe!'    of   caoabil  ities    :  = 


c  » 


z; 


u.ar.ac_type(i)  .  loca t  ion (j ) 


reccn  .drrpn  .chdnge    :=   FALSE; 
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u.ar  .ac_ type (i ) .location! J ) . 

recon  .ampn  . number _o?_lines 
FOE  z  IN  1.  .rrax_recon  LOOP 
u.ar.ac_type(i ) . location ( j ) . 

recon  .caoability (z ) 
INE  1CCP; 
ENE  zero  location; 


Z' 


PBOCIDOBI 

BEGIN 


zero_ac_type(i :  IN  INTEGER)  IS 


—  zer 


ar 
ar 
ar 
ar 
ar 
ar 
ar 
ar 
ar 


u.  ar 
u.ar 
u.ar 
u.ar 
u.ar 
FOB 

ze 
ENI 
INE  ze 


.ac_ 
.ac_ 
.ac_ 
.ac_ 

.dC_ 

.  ac_ 
.ac_ 
.ac_ 
.ac_ 
.ac_ 
.ac_ 
.ac_ 
.  ac_ 
.ac_ 
j  IN 
ro_l 
ICOP 
ro  a 


type( 

type( 

type 

type 

type 

type 

type 

type 

type 

type 

type 

type 

type 

type 

1 .  .rr 
ocati 


). 
). 
). 
). 


). 

). 

). 

). 

). 

). 
ax 
on' 


o   out   all    iterrs 
change    :=   FALSE; 
delete    :=   IALSEJ 
iss    :=   "'"; 

ac_auth. change    :=   FALSI; 
ac_duth.del ete    :=   FALSE; 
ac_auth.iss    :=   two?; 
ac_auth.dFpn .chdnge    :=   FALSE; 
ac_auth.ampn.  number_of_lir.es 
crews_auth.chdnge    :=    FALSE; 
crevs'auth. delete    :=   FALSI; 
crews_auth  .i  ss    :=   t'*o0; 
crews_auth.drpn . chdnge    :=   FALSE? 
crews_auth.  arrpn.  nurr be r_cf_  lines 
number_of _locations    :=  1»   —  homepiate 
locdtions    LCCP 


^  j 


-     c  1 


_ac_type, 


BEGIN 
two0 


=  m   ; 

—  initidlize  UNIT000B 


u.dd .change 


•-  adTin    sets 
=  false; 


u.  ad.  command,  change    :  =  i%FALSE; 

u  .ad  .command  .  cooic    :  =        ; 

u.ad  .corrmand  .dtg    :=        J 

u  .ad  .corrmand  .ampn  .change    :=   FALSE; 

u.ad. command  .ampn  .  nurrber_of  _lines 


=  0; 


u. ad. activ. change    :=   FALSI; 

u .ad. activ. activity_code    :=    "CF"; 

u. ad  .activ  .airpn.  change    :=    FALSE; 

u. ad. activ  .arrpn  .nurrber_of  _1  ines    :=   0> 
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u. ad  .rredic  .change    :=   FALSI; 

u. ad  .rredic.  status    :=  onboard; 

u  .ad  .rredic  .arrpn  .change    :=   FALSI; 

u  .ad  .tTedic.airpn  .nurrber_of_lines    :=   0? 

u.ad. reporg. change    :=   FALSI; 

u.ad  .reporg  .new_repfrorg    :=   cno; 

u. ad. reporg. d tg    :=     "; 

u.ad  .reporg. arrpn  .change    :=   FALSE; 

u.ad.  reporg. arrpn  .nurrber_of_lines    :=    0J 

u.ad. verify. change    :=   FALSI; 
u.ad.  verify  .f  eedbac£_ver    :=   vdid; 
u.ad  .verify  .arrpn  .change    :=   FALSE; 
u.ad.  verify  .arrpn  .number_of_lines    :=   0J 

—  dir   sets 
u.ar. change    :=  FALSI; 
u.ar.number_of_ac_types    :=   0» 
FOR    i    IN    1  .  .rrdx_ac_types    LCCP 
zero   ac_tyue(i); 

ini  locf; 
deieti(',unit000B")  ; 

Crsate(fyle,"TJNIT000B"tArite_Cnly); 
Open (fyle,nUNIT000B", Write  Only) ; 
Write(fyle,u); 
CLOSI(fyle); 

PUT  ('>tjh  rite  to  UNIT0003  Complete..."); 

niw_lini;  niw_lini; 

IND   initialB; 


29; 


LIST    OF    REFERENCES 


1.  ^aval    Electronics   Systems    Corrrrand,    Test    and    Evaluation 
Report   X/C   13    Increment    I   1CCMPREP],      30   June    1975. 

2.  Naval  Electronics  Systems  Corrrrand  Report  FME-108-F00311 , 
IlJfil  Corrrand  Center  Composite  Operations  Reporting 
Slllls!t"20  August~1976. 

3.  Holyoak,    J  .G- .  ,   A    Shipboard     Report    Origination     System 
I!liil2ing   a   Microcomputer,    MTsT'fhesii,    Naval 
Postgraduate   School,    Monterey,    CA.  ,    1976. 

4.  Godley,      J. 3.,      A      Microcomputer      Based      Generator     of 
"^currin^   ^oeratlcnal    Reports,    M.S.    Thesis,    Naval 
?ostgrddUdte   School,    Monterey,    CA..    1977. 

5.  ?ffice      of      the      Chief     of      Naval      Operations      proposed 
Instruction  3503.1   -  3503.7,    Navy   Reporting  Structure 
iEiiatipnal   ?sP£rII»    15   January    1962. 

f.      ^aval    Electronics    Systems    Corrrrand,    Navy   Command   and 

Control  System  1  NCOS  J.  Formatted  Meslage  Error  Analysis 
Report,  Sterling  lata  Applications,  Inc.,  Sterling,  VA., 
1    Octoter    1980. 

7.  Sterling  Lata  Aoplications  Technical  Report  0617-E13, 
Result  of  Composite  Operational  Reporting  System  Report 
2ll&ll}r Jl.2.5  System  Frotptyoe  development  Test,  12  March 
1982T 

8.  Ada  Programming  language,  Denartrrent  of  Defense  Military 
Standard   MIL-STr-1315 ,    10   Eecerrber    1980. 

9.  iANUS/AEA  Pdpkage  User  Manual  8080  Version  3,  RR 
ScftwareT   Madison,    WI.,    July    1962. 

10.  Office      of      the      Chief     of      Naval      Operations      proposed 
Instruction   3503. 5    Navy   Reporting   Structure  Operational 
Reoprts      -  Unit    Status   and    Identity   Report,      15      January 
1982." 


294 


3I3LIOGRAPHY 


Barnes  »J  .G  .P  .  ,  Prcgrarrrring  in  AEA ,  Addison-Wesley  Publishing 
Corrpany,    1962. 

Spra.eiie  Jr.,  Ralph  E.  and  Carlson,  fric  E.,-  Building 
liffctive  recisiTn  Sunport  Systems,  Prentice-Hall  Inc., 
19S2. 


INITIAL  DISTRIBUTION  LIST 


1.  Defense  Technical  Information  Center 
Cameron  Station 

Alexandria,  Virginia  22314 

2.  library,  Code  0142 
Naval  Postgraduate  School 
Monterey,  California  93940 

3.  Naval  Electronics  Systems  Command 
PME-120-1213 

National  Center  1  (Room  8272) 
Washington,  D.C.  20363 

4.  Prof.  Pal  Titus  (Code  62  Is) 
Department  of  Electrical  Engineering 
Naval  Postgraduate  Scnool 
Monterey,  California  93940 

5.  CD?  Gary  P.  Porter  (Code  55  Ft) 

Director,  Command  and  Control  tfar  Laboratory 
Naval  Postgraduate  School 
Monterey,  California  £3242 

c.   Prof.  U.K.  Kodres  (Code  52  Kr ) 
Department  of  Computer  Science 
Naval  Postgraduate  School 
Monterey,  California  93940 

7.   Capt.  T.F.  Rogers 
SMC  2237 

Naval  Postgraduate  School 
Monterey,  California  93S40 

S.   Cpt.  J. .A.  Karadimltropoulos 
SMC  2519 

Naval  Postgraduate  School 
Monterey,  California  93940 

9.   LT.  M.3.  Critz 
ESL-33 

NAS  North  Island 
San  Iiego,  California  92135 


Copies 
2 


296 


is 


Thes 

C8735 

cl 


Crit; 


Z006 


77 


.  ^  approach  for 
comnT11"118  a  ffiicro-lcro- 
ori,PL:,r.baSed  ^P°rt  eport 
thelL     0nSyStem^emin 

*0ftUG8*  297U0     U0 


?00S77 


Critz 

An  approach  for 
implementing  a  micro-- 
computer  based  report 
origination  system  in 
the  ADA  programming 
language. 


thesC8735 

A||l.iSr°aChf0r'mp,ememi"9' 


3  2768  001  02467  2 
DUDLEY  KNOX  LIBRARY 


Hi 


'.'■!  V 


m 


iPMs  raws 

IIHHI 


3»»KFm8 


'■;'■',. ■-■•Am *!^  •:: 

'     v'i  ffi  '/     I'i-.'v'-'-- V- 


SjsB&K 


&Wtt 


